home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / CHEESEY.s < prev    next >
Encoding:
Text File  |  1980-05-20  |  190.5 KB  |  13,739 lines
  1.  
  2.  
  3.  
  4. CHEESEY equ 0
  5.  
  6. *************************************************
  7. * Stuff to do to get a C2P version:
  8. * Change copperlist
  9. * Change wall drawing
  10. * change floor drawing
  11. * change object drawing
  12. * change polygon drawing (ugh)
  13. * Write a palette generator program in AMOS
  14. * to provide a good 256 colour palette and
  15. * convert all graphics files specified
  16. * (possibly included in the game linker
  17. * program).
  18. * Possibly change the wall/floor/object
  19. * palettes to look nicer with more shades.
  20. * RE-implement stippling (if not present)
  21. * as it will look gorgeous now.
  22. *************************************************
  23.  
  24. ;MIDDLEX set 96
  25. ;RIGHTX set 191
  26. ;BOTTOMY set 160 
  27.  
  28. ;MIDDLEX set 96
  29. ;RIGHTX set 191
  30. ;BOTTOMY set 160
  31.  
  32. _break    macro
  33. ;    bkpt    \1
  34.     endm
  35.  
  36.  
  37. FILTER    macro
  38. ;    move.l    d0,-(sp)
  39. ;    move.l    #65000,d0
  40. ;.loop\@
  41. ;    bchg    #1,$bfe001
  42. ;    dbra    d0,.loop\@
  43. ;    move.l    (sp)+,d0
  44.     endm
  45.  
  46. BLACK    macro
  47.     move.w    #0,$dff180
  48.     endm
  49.  
  50. RED    macro
  51.     move.w    #$f00,$dff180
  52.     endm
  53.  
  54. FLASHER macro
  55. ;    movem.l    d1,-(sp)
  56. ;    move.w    #-1,d1
  57. ;
  58. ;loop3\@
  59. ;;    move.w    #\1,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    move.w    #\2,$dff180
  63. ;    nop
  64. ;    nop
  65. ;    dbra    d1,loop3\@
  66.  
  67. ;    movem.l    (sp)+,d1
  68.  
  69.     endm
  70.  
  71. GREEN    macro
  72.     move.w    #$0f0,$dff180
  73.     endm
  74.  
  75. BLUE    macro
  76.     move.w    #$f,$dff180
  77.     endm
  78.  
  79. DataCacheOff macro
  80.     movem.l    a0-a6/d0-d7,-(sp)
  81.     move.l    4.w,a6
  82.     moveq    #0,d0
  83.     move.l    #%0000000100000000,d1
  84.     jsr    _LVOCacheControl(a6)
  85.     movem.l    (sp)+,a0-a6/d0-d7
  86.     endm
  87.  
  88. DataCacheOn macro
  89.     movem.l    a0-a6/d0-d7,-(sp)
  90.     move.l    4.w,a6
  91.     moveq    #-1,d0
  92.     move.l    #%0000000100000000,d1
  93.     jsr    _LVOCacheControl(a6)
  94.     movem.l    (sp)+,a0-a6/d0-d7
  95.     endm
  96.  
  97.     opt    P=68020
  98.  
  99.     include utils:sysinc/hardware/intbits.i
  100.  
  101. CD32VER equ 0
  102.  
  103. maxscrdiv EQU 8
  104. max3ddiv EQU 5
  105. playerheight EQU 12*1024
  106. playercrouched EQU 8*1024
  107. scrheight EQU 80
  108.  
  109. ; k/j/m
  110.  
  111. ; 4/8
  112. ; s/x
  113. ; b/n
  114.  
  115. midoffset EQU 104*4*40
  116.  
  117.  
  118.  SECTION Scrn,CODE
  119. OpenLib       equ -552
  120. CloseLib      equ -414
  121.  
  122. INTREQ        equ    $09C
  123. INTENA        equ    $09A
  124. INTENAR    equ    $01C
  125. DMACON        equ    $096
  126.  
  127. SERPER        equ    $032
  128. SERDATR    equ    $018
  129. SERDAT        equ    $030
  130. vhposr        equ $006    
  131. vhposrl    equ $007 
  132.  
  133. bltcon0    equ $40 
  134. bltcon1    equ $42
  135. bltcpt        equ $48
  136. bltbpt        equ $4c
  137. bltapt        equ $50
  138. spr0ctl    equ $142
  139. spr1ctl    equ $14a
  140. spr2ctl    equ $152
  141. spr3ctl    equ $15a
  142. spr4ctl    equ $162
  143. spr5ctl    equ $16a
  144. spr6ctl    equ $172
  145. spr7ctl    equ $17a
  146. spr0pos    equ $140
  147. spr1pos    equ $148
  148. spr2pos    equ $150
  149. spr3pos    equ $158
  150. spr4pos    equ $160
  151. spr5pos    equ $168
  152. spr6pos    equ $170
  153. spr7pos    equ $178
  154. bltdpt         equ $54
  155. bltafwm    equ $44
  156. bltalwm    equ $46
  157. bltsize         equ $58
  158. bltcmod         equ $60
  159. bltbmod         equ $62
  160. bltamod         equ $64
  161. bltdmod         equ $66
  162. diwstart        equ $8e         ; Screen hardware registers.
  163. diwstop         equ $90
  164. ddfstart        equ $92
  165. ddfstop         equ $94
  166. bplcon0         equ $100
  167. bplcon1         equ $102
  168. col0            equ $180
  169. col1            equ $182
  170. col2        equ $184
  171. col3        equ $186
  172. col4        equ $188
  173. col5        equ $18a
  174. col6        equ $18c
  175. col7        equ $18e
  176. col8            equ $190
  177. col9            equ $192
  178. col10           equ $194
  179. col11           equ $196
  180. col12           equ $198
  181. col13           equ $19a
  182. dmacon        equ $96
  183. dmaconr        equ $002
  184. intenar        equ $01c
  185. intena        equ $09a
  186. intreq        equ $09c
  187. intreqr        equ $01e
  188. intreqrl    equ $01f
  189. bpl1pth         equ $e0
  190. bpl1ptl         equ $e2
  191. bpl2pth        equ $e4
  192. bpl2ptl        equ $e6
  193. bpl3pth        equ $e8
  194. bpl3ptl        equ $ea
  195. bpl4pth        equ $ec
  196. bpl4ptl        equ $ee
  197. bpl5pth        equ $f0
  198. bpl5ptl        equ $f2
  199. bpl6pth        equ $f4
  200. bpl6ptl        equ $f6
  201. bpl7pth        equ $f8
  202. bpl7ptl        equ $fa
  203. bpl8pth        equ $fc
  204. bpl8ptl        equ $fe
  205. spr0pth        equ $120
  206. spr0ptl        equ $122
  207. spr1pth        equ $124
  208. spr1ptl        equ $126
  209. spr2pth        equ $128
  210. spr2ptl        equ $12a
  211. spr3pth        equ $12c
  212. spr3ptl        equ $12e
  213. spr4pth        equ $130
  214. spr4ptl        equ $132
  215. spr5pth        equ $134
  216. spr5ptl        equ $136
  217. spr6pth        equ $138
  218. spr6ptl        equ $13a
  219. spr7pth        equ $13c
  220. spr7ptl        equ $13e
  221. adkcon        equ   $09E
  222.  
  223.  
  224. ; move.l #length,d0
  225. ; moveq.l #2,d1    ; chipmem
  226. ; move.l 4.w,a6
  227. ; jsr allocmem(a6) = -198
  228.  
  229. ; tst.l d0
  230. ; beq.s ohbugger
  231. ; move.l d0,memaddr
  232.  
  233.  
  234. ; move.l 4.w,a6
  235. ; move.l memaddr,a1
  236. ; move.l #size,d0
  237. ; jsr freemem(a6) =-210
  238.  
  239.  
  240. ** This waits for the blitter to finish before allowing program
  241. ** execution to continue.
  242.  
  243.  
  244.  include "ab3:source_4000/protsetupdecode"
  245.  
  246.  
  247. SAVEREGS MACRO
  248.  movem.l d0-d7/a0-a6,-(a7)
  249.  ENDM
  250.  
  251. GETREGS MACRO
  252.  movem.l (a7)+,d0-d7/a0-a6
  253.  ENDM
  254.  
  255.  
  256. WB MACRO
  257. \@bf:
  258.  btst #6,dmaconr(a6)
  259.  bne.s \@bf
  260.  ENDM
  261.  
  262. WBa MACRO
  263. \@bf:
  264.  move.w #\2,$dff180
  265.  
  266.  btst #6,$bfe001
  267.  bne.s \@bf
  268. \@bz:
  269.  
  270.  move.w #$f0f,$dff180
  271.  
  272.  btst #6,$bfe001
  273.  beq.s \@bz
  274.  
  275.  ENDM
  276.  
  277. *Another version for when a6 <> dff000
  278.  
  279. WBSLOW MACRO
  280. \@bf:
  281.  btst #6,$dff000+dmaconr
  282.  bne.s \@bf
  283.  ENDM
  284.  
  285. WT MACRO
  286. \@bf:
  287.  btst #6,(a3)
  288.  bne.s \@bd
  289.  rts
  290. \@bd: 
  291.  btst #4,(a0)
  292.  beq.s \@bf
  293.  ENDM
  294.  
  295. WTNOT MACRO
  296. \@bf:
  297.  btst #6,(a3)
  298.  bne.s \@bd
  299.  rts
  300. \@bd: 
  301.  btst #4,(a0)
  302.  bne.s \@bf
  303.  ENDM
  304.  
  305. **
  306.  
  307.  include "ab3:source_4000/ProtectionProtection"
  308.  include "macros.i"
  309.  include "ab3:source_4000/defs.i"
  310.  
  311. wtclickk:
  312.  btst #6,$bfe001
  313.  bne.s wtclickk
  314.  
  315.  move.w (a0)+,LEVTOPLAY
  316.  
  317.  
  318.  jsr MakePatch
  319.  
  320. ;    FLASHER $0f0,$fff
  321.  
  322. ; PROTFCALC
  323. ; PROTGCALC
  324. ; PROTHCALC
  325. ; PROTICALC
  326. ; PROTKCALC
  327. ; PROTLCALC
  328. ; PROTMCALC
  329.  
  330.  
  331.  
  332.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  333.  move.w intenar(a6),_storeint
  334.  and.w #$c000,_storeint
  335.  
  336.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  337.  
  338.  
  339.  st GOURSEL
  340.  
  341.  move.l 4.w,a6
  342.  lea VBLANKInt(pc),a1
  343.  moveq #INTB_COPER,d0
  344.  jsr _LVOAddIntServer(a6)
  345.  
  346.     IFEQ CD32VER
  347.  move.l 4.w,a6
  348.  lea KEYInt(pc),a1
  349.  moveq #INTB_PORTS,d0
  350.  jsr _LVOAddIntServer(a6)
  351.     ENDC
  352.  
  353.  IFNE CD32VER
  354.  clr.b PLR1KEYS
  355.  clr.b PLR1PATH
  356.  clr.b PLR1MOUSE
  357.  st PLR1JOY
  358.  clr.b PLR2KEYS
  359.  clr.b PLR2PATH
  360.  clr.b PLR2MOUSE
  361.  st PLR2JOY
  362.  ELSE
  363.  st PLR1KEYS
  364.  clr.b PLR1PATH
  365.  clr.b PLR1MOUSE
  366.  clr.b PLR1JOY
  367.  st PLR2KEYS
  368.  clr.b PLR2PATH
  369.  clr.b PLR2MOUSE
  370.  clr.b PLR2JOY
  371.  ENDC
  372.  
  373.  PRSDO
  374.  
  375.  move.l #2,d1    
  376.  move.l #10240*2,d0
  377.  move.l 4.w,a6
  378.  jsr -198(a6)
  379.  move.l d0,TEXTSCRN
  380.  move.w d0,TSPTl
  381.  swap d0
  382.  move.w d0,TSPTh
  383.  
  384.  move.l #nullspr,d0
  385.  move.w d0,txs0l
  386.  move.w d0,txs1l
  387.  move.w d0,txs2l
  388.  move.w d0,txs3l
  389.  move.w d0,txs4l
  390.  move.w d0,txs5l
  391.  move.w d0,txs6l
  392.  move.w d0,txs7l
  393.  swap d0
  394.  move.w d0,txs0h
  395.  move.w d0,txs1h
  396.  move.w d0,txs2h
  397.  move.w d0,txs3h
  398.  move.w d0,txs4h
  399.  move.w d0,txs5h
  400.  move.w d0,txs6h
  401.  move.w d0,txs7h 
  402.  
  403.  move.l #0,d1    
  404.  move.l #140000,d0
  405.  move.l 4.w,a6
  406.  jsr -198(a6)
  407.  move.l d0,LEVELDATA
  408.  
  409.  move.l #0,d1
  410.  
  411.  ifeq CHEESEY    
  412.  move.l #320*256,d0
  413.  endc
  414.  
  415.  ifne CHEESEY
  416.  move.l #320*160,d0
  417.  endc
  418.  
  419.  move.l 4.w,a6
  420.  jsr -198(a6)
  421.  move.l d0,FASTBUFFER
  422.  
  423.  jsr START
  424.  
  425.  rts
  426.  
  427. FASTBUFFER: dc.l 0
  428.  
  429. _storeint
  430.     dc.w 0
  431.  
  432. * Load level into buffers.
  433.  clr.b doanything
  434.  clr.b dosounds
  435.  
  436. ; DRAW TEXT SCREEN
  437.  
  438. TWEENTEXT:
  439.  
  440.  move.l #LEVELTEXT,a0
  441.  move.w PLOPT,d0
  442.  muls #82*16,d0
  443.  add.l d0,a0
  444.  
  445.  move.w #14,d7
  446.  move.w #0,d0
  447. DOWNTEXT:
  448.  move.l TEXTSCRN,a1
  449.  jsr DRAWLINEOFTEXT
  450.  addq #1,d0
  451.  add.w #82,a0
  452.  dbra d7,DOWNTEXT
  453.  rts
  454.  
  455. FONTADDRS:
  456.  dc.l ENDFONT0,CHARWIDTHS0
  457.  dc.l ENDFONT1,CHARWIDTHS1
  458.  dc.l ENDFONT2,CHARWIDTHS2
  459.  
  460. ENDFONT0:
  461.  incbin "endfont0"
  462. CHARWIDTHS0:
  463.  incbin "charwidths0"
  464. ENDFONT1:
  465. ; incbin "endfont1"
  466. CHARWIDTHS1:
  467. ; incbin "charwidths1"
  468. ENDFONT2:
  469. ; incbin "endfont2"
  470. CHARWIDTHS2:
  471. ; incbin "charwidths2"
  472.  
  473.  even
  474.  
  475. DRAWLINEOFTEXT:
  476.  movem.l d0/a0/d7,-(a7)
  477.  
  478.  muls #80*16,d0
  479.  add.l d0,a1    ; screen pointer
  480.  
  481.  move.l #FONTADDRS,a3
  482.  moveq #0,d0
  483.  move.b (a0)+,d0
  484.  move.l (a3,d0.w*8),a2
  485.  move.l 4(a3,d0.w*8),a3
  486.  
  487.  moveq #0,d1    ; width counter:
  488.  move.w #79,d6
  489.  tst.b (a0)+
  490.  beq.s NOTCENTRED
  491.  moveq #-1,d5
  492.  move.l a0,a4
  493.  moveq #0,d2
  494.  moveq #0,d3
  495.  move.w #79,d0    ; number of chars
  496. .addup:
  497.  addq #1,d5
  498.  move.b (a4)+,d2
  499.  move.b -32(a3,d2.w),d4
  500.  add.w d4,d3
  501.  cmp.b #32,d2
  502.  beq.s .DONTPUTIN
  503.  move.w d5,d6
  504.  move.w d3,d1
  505. .DONTPUTIN:
  506.  dbra d0,.addup
  507.  asr.w #1,d1
  508.  neg.w d1
  509.  add.w #320,d1    ; horiz pos of start x
  510.  
  511. NOTCENTRED:
  512.  move.w d6,d7
  513. DOACHAR:
  514.  moveq #0,d2
  515.  move.b (a0)+,d2
  516.  sub.w #32,d2
  517.  moveq #0,d6
  518.  move.b (a3,d2.w),d6
  519.  asl.w #5,d2
  520.  lea (a2,d2.w),a4    ; char font
  521. val SET 0
  522.  REPT 16
  523.  move.w (a4)+,d0
  524.  bfins d0,val(a1){d1:d6}
  525. val SET val+80
  526.  ENDR
  527.  add.w d6,d1
  528.  dbra d7,DOACHAR
  529.  movem.l (a7)+,d0/a0/d7
  530.  rts 
  531.  
  532.  
  533. CLRTWEENSCRN:
  534.  move.l TEXTSCRN,a0
  535.  move.w #(10240/16)-1,d0
  536.  move.l #$0,d1
  537. .lll
  538.  move.l d1,(a0)+
  539.  move.l d1,(a0)+
  540.  move.l d1,(a0)+
  541.  move.l d1,(a0)+
  542.  move.l d1,(a0)+
  543.  move.l d1,(a0)+
  544.  move.l d1,(a0)+
  545.  move.l d1,(a0)+
  546.  dbra d0,.lll
  547.  rts
  548.  
  549. LEVTOPLAY: dc.w 0
  550.  
  551. COPYLINK: dc.l 0
  552.  
  553. PLAYTHEGAME:
  554.  
  555.  move.w #0,TXTCOLL
  556.  
  557.  bsr CLRTWEENSCRN
  558.  
  559.  cmp.b #'n',mors
  560.  bne.s .notext
  561.  bsr TWEENTEXT
  562. .notext
  563.  
  564. ;charlie 
  565.  move.l #TEXTCOP,$dff080
  566.  
  567.  move.w #$10,d0
  568.  move.w #7,d1
  569.  
  570. .fdup
  571.  move.w d0,TXTCOLL
  572.  add.w #$121,d0
  573. .wtframe:
  574.  btst #5,$dff000+intreqrl
  575.  beq.s .wtframe
  576.  move.w #$0020,$dff000+intreq
  577.  dbra d1,.fdup
  578.  
  579.  jsr INITCOPPERSCRN
  580.  
  581.  move.l #$dff000,a6
  582.  jsr SETPLAYERS
  583.  
  584.  move.l #0,TYPEOFMEM
  585.  move.l #LLname,a0
  586.  jsr LOADAFILE
  587.  move.l d0,LINKS
  588.  
  589.  move.l #0,TYPEOFMEM
  590.  move.l #LLFname,a0
  591.  jsr LOADAFILE
  592.  move.l d0,FLYLINKS
  593.  
  594. ; Get level memory.
  595.  
  596.  move.l #1,d1
  597.  move.l #40000,d0
  598.  move.l 4.w,a6
  599.  jsr -198(a6)
  600.  move.l d0,LEVELGRAPHICS
  601.  
  602.  move.l #1,d1
  603.  move.l #40000,d0
  604.  move.l 4.w,a6
  605.  jsr -198(a6)
  606.  move.l d0,LEVELCLIPS
  607.  
  608.  move.l #$dff000,a6
  609.  
  610. ; move.b LEVTOPLAY,d0
  611. ; move.b d0,LEVA
  612. ; move.b d0,LEVB
  613. ; move.b d0,LEVC
  614. ; move.b d0,LEVD
  615. ; move.b d0,LEVE
  616.  
  617.  
  618. ; move.l #LEVELDATAD,LEVELDATA
  619. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  620. ; move.l #LEVELCLIPSD,LEVELCLIPS
  621.  
  622. ; bra noload
  623.  
  624. *********************************
  625.  
  626. ; move.l doslib,a6
  627. ; move.l #LLname,d1
  628. ; move.l #1005,d2
  629. ; jsr -30(a6)
  630. ; move.l d0,LLhandle
  631. ;
  632. ; move.l doslib,a6
  633. ; move.l d0,d1
  634. ; move.l #LINKS,d2
  635. ; move.l #10000,d3
  636. ; jsr -42(a6)
  637. ;
  638. ; move.l doslib,a6
  639. ; move.l LLhandle,d1
  640. ; jsr -36(a6)
  641.  
  642.  ********************************
  643.  
  644. ; move.l doslib,a6
  645. ; move.l #LLFname,d1
  646. ; move.l #1005,d2
  647. ; jsr -30(a6)
  648. ; move.l d0,LLhandle
  649.  
  650. ; move.l doslib,a6
  651. ; move.l d0,d1
  652. ; move.l #FLYLINKS,d2
  653. ; move.l #10000,d3
  654. ; jsr -42(a6)
  655.  
  656. ; move.l doslib,a6
  657. ; move.l LLhandle,d1
  658. ; jsr -36(a6)
  659.  
  660.  ************************
  661.  ********
  662.  
  663.  
  664.  move.l doslib,a6
  665.  move.l #LDname,d1
  666.  move.l #1005,d2
  667.  jsr -30(a6)
  668.  move.l d0,LDhandle
  669.  
  670.  move.l doslib,a6
  671.  move.l d0,d1
  672.  move.l LEVELCLIPS,d2
  673.  move.l #40000,d3
  674.  jsr -42(a6)
  675.  
  676.  move.l doslib,a6
  677.  move.l LDhandle,d1
  678.  jsr -36(a6)
  679.  
  680. *************************************
  681.     move.l    LEVELCLIPS,d0
  682.     moveq    #0,d1
  683.     move.l LEVELDATA,a0
  684.     lea    WorkSpace,a1
  685.     lea    $0,a2
  686.     jsr    unLHA
  687. *************************************
  688.  
  689. ********
  690.  
  691.  move.l doslib,a6
  692.  move.l #LGname,d1
  693.  move.l #1005,d2
  694.  jsr -30(a6)
  695.  move.l d0,LGhandle
  696.  
  697.  move.l doslib,a6
  698.  move.l d0,d1
  699.  move.l LEVELCLIPS,d2
  700.  move.l #40000,d3
  701.  jsr -42(a6)
  702.  
  703.  move.l doslib,a6
  704.  move.l LGhandle,d1
  705.  jsr -36(a6)
  706.  
  707. *************************************
  708.     move.l    LEVELCLIPS,d0
  709.     moveq    #0,d1
  710.     move.l LEVELGRAPHICS,a0
  711.     lea    WorkSpace,a1
  712.     lea    $0,a2
  713.     jsr    unLHA
  714. *************************************
  715.  
  716. ********
  717.  
  718.  move.l doslib,a6
  719.  move.l #LCname,d1
  720.  move.l #1005,d2
  721.  jsr -30(a6)
  722.  move.l d0,LChandle
  723.  
  724.  move.l doslib,a6
  725.  move.l d0,d1
  726.  move.l #WorkSpace+16384,d2
  727.  move.l #16000,d3
  728.  jsr -42(a6)
  729.  
  730.  move.l doslib,a6
  731.  move.l LChandle,d1
  732.  jsr -36(a6)
  733.  
  734. *************************************
  735.     move.l    #WorkSpace+16384,d0
  736.     moveq    #0,d1
  737.     move.l LEVELCLIPS,a0
  738.     lea    WorkSpace,a1
  739.     lea    $0,a2
  740.     jsr    unLHA
  741. *************************************
  742.  
  743.  
  744. *******
  745.  
  746. noload:
  747.  
  748. ********
  749.  
  750. ; move.l doslib,a6
  751. ; move.l #Prefsname,d1
  752. ; move.l #1005,d2
  753. ; jsr -30(a6)
  754. ; move.l d0,Prefshandle
  755.  
  756. ; move.l doslib,a6
  757. ; move.l d0,d1
  758. ; move.l #Prefsfile,d2
  759. ; move.l #50,d3
  760. ; jsr -42(a6)
  761.  
  762. ; move.l doslib,a6
  763. ; move.l Prefshandle,d1
  764. ; jsr -36(a6)
  765.  
  766. *******
  767.  
  768.  IFNE CD32VER
  769.  move.l doslib,a6
  770.  move.l #115,d1
  771.  jsr -198(a6)
  772.  ENDC
  773.  
  774.  
  775. ; move.l doslib,d0
  776. ; move.l d0,a1
  777. ; move.l 4.w,a6
  778. ; jsr CloseLib(a6)
  779.  
  780.  move.l #$dff000,a6
  781.  
  782. charlie:
  783. ; jmp  ENDGAMESCROLL
  784.  
  785.     move.w #$87c0,dmacon(a6)
  786.  
  787.     move.w    #%1000000000100000,dmacon(a6)
  788.  
  789. ; move.w intenar(a6),saveinters
  790.     
  791.     move.w #%00101111,intena(a6)
  792.  
  793.     move.w #255,adkcon(a6)
  794.  
  795.  
  796. *** Put myself in supervisor mode
  797.  
  798.  bra blag
  799. ; move.l $6c,d0
  800. ; move.l #blag,$6c
  801. ; move.w #$8010,intreq(a6)
  802.  
  803.  rts
  804.  
  805. saveit: ds.l 10
  806. doslibname: dc.b 'dos.library',0
  807.  even
  808. doslib: dc.l 0
  809.  
  810. mors: dc.w 0
  811.  
  812. LDname: dc.b 'ab3:levels/level_'
  813. LEVA:
  814.  dc.b 'a/twolev.bin',0
  815.  even
  816. LDhandle: dc.l 0
  817. LGname: dc.b 'ab3:levels/level_'
  818. LEVB:
  819.  dc.b 'a/twolev.graph.bin',0
  820.  even
  821. LGhandle: dc.l 0
  822. LCname: dc.b 'ab3:levels/level_'
  823. LEVC:
  824.  dc.b 'a/twolev.clips',0
  825.  even
  826. LChandle: dc.l 0
  827. LLname: dc.b 'ab3:levels/level_'
  828. LEVD:
  829.  dc.b 'a/twolev.map',0
  830.  even
  831. LLFname: dc.b 'ab3:levels/level_'
  832. LEVE:
  833.  dc.b 'a/twolev.flymap',0
  834.  even
  835. LLhandle: dc.l 0
  836.  
  837.     cnop    0,4
  838.  
  839. Prefsname: dc.b 'ram:prefs',0
  840.  even
  841. Prefshandle: dc.l 0
  842.  
  843. Prefsfile:
  844.  dc.b 'k4nx'
  845.  
  846.  even
  847.  
  848.  cnop 0,4
  849.  
  850. VBLANKInt
  851.  dc.l 0,0
  852.  dc.b NT_INTERRUPT,9
  853.  dc.l Prefsname
  854.  dc.l 0
  855.  dc.l Chan0inter
  856.  
  857.  
  858. KEYInt
  859.  dc.l 0,0
  860.  dc.b NT_INTERRUPT,127
  861.  dc.l Prefsname
  862.  dc.l 0
  863.  dc.l key_interrupt
  864.  
  865.  
  866. blag:
  867. ; move.w #$10,intreq(a6)
  868. ; move.l d0,$6c
  869. ; move.w #$7fff,intena(a6)
  870.  
  871. ; move.w #$20,$dff1dc
  872.  
  873. ; move.l 4.w,a6
  874. ; lea VBLANKInt(pc),a1
  875. ; moveq #INTB_COPER,d0
  876. ; jsr _LVOAddIntServer(a6)
  877.  
  878. ****************************
  879. * Initialize level
  880. ****************************
  881. * Poke all clip offsets into
  882. * correct bit of level data.
  883. ****************************
  884.  move.l LEVELGRAPHICS,a0
  885.  move.l 12(a0),a1
  886.  add.l a0,a1
  887.  move.l a1,ZoneGraphAdds
  888.  move.l (a0),a1
  889.  add.l a0,a1
  890.  move.l a1,DoorData
  891.  move.l 4(a0),a1
  892.  add.l a0,a1
  893.  move.l a1,LiftData
  894.  move.l 8(a0),a1
  895.  add.l a0,a1
  896.  move.l a1,SwitchData
  897.  adda.w #16,a0
  898.  move.l a0,ZoneAdds
  899.  
  900.  move.l LEVELDATA,a4
  901.  lea 160*10(a4),a1
  902.  
  903.  lea 54(a1),a2
  904.  move.l a2,CPtPos
  905.  move.w 12(a1),NumCPts
  906.  move.w 14(a1),NumLevPts
  907.  
  908.  move.l 16+6(a1),a2
  909.  add.l a4,a2
  910.  move.l a2,Points
  911.  move.w 8+6(a1),d0
  912.  lea 4(a2,d0.w*4),a2
  913.  move.l a2,PointBrights
  914.  move.w 16(a1),d0
  915.  addq #1,d0
  916.  muls #80,d0
  917.  add.l d0,a2
  918.  move.l a2,ZoneBorderPts
  919.  
  920.  move.l 20+6(a1),a2
  921.  add.l a4,a2
  922.  move.l a2,FloorLines
  923.  move.w -2(a2),ENDZONE
  924.  move.l 24+6(a1),a2
  925.  add.l a4,a2
  926.  move.l a2,ObjectData
  927. *****************************************
  928. * Just for charles
  929.  
  930. ; move.w #$6060,6(a2)
  931. ; move.l #$d0000,8(a2)
  932. ; sub.w #40,4(a2)
  933. ; move.w #45*256+45,14(a2)
  934. ****************************************
  935.  move.l 28+6(a1),a2
  936.  add.l a4,a2
  937.  move.l a2,PlayerShotData
  938.  move.l 32+6(a1),a2
  939.  add.l a4,a2
  940.  move.l a2,NastyShotData
  941.  
  942.  add.l #64*20,a2
  943.  move.l a2,OtherNastyData
  944.  
  945.  move.l 36+6(a1),a2
  946.  add.l a4,a2
  947.  move.l a2,ObjectPoints  
  948.  move.l 40+6(a1),a2
  949.  add.l a4,a2
  950.  move.l a2,PLR1_Obj
  951.  move.l 44+6(a1),a2
  952.  add.l a4,a2
  953.  move.l a2,PLR2_Obj
  954.  move.w 14+6(a1),NumObjectPoints
  955.  
  956. ; bra noclips
  957.   
  958.  move.l LEVELCLIPS,a2
  959.  moveq #0,d0
  960.  move.w 10+6(a1),d7    ;numzones
  961.  move.w d7,NUMZONES
  962. assignclips:
  963.  move.l (a0)+,a3
  964.  add.l a4,a3    ; pointer to a zone
  965.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  966. dowholezone:
  967.  tst.w (a3)
  968.  blt.s nomorethiszone
  969.  tst.w 2(a3)
  970.  blt.s thisonenull
  971.  
  972.  move.l d0,d1
  973.  asr.l #1,d1
  974.  move.w d1,2(a3)
  975.  
  976. findnextclip:
  977.  cmp.w #-2,(a2,d0.l)
  978.  beq.s foundnextclip
  979.  addq.l #2,d0
  980.  bra.s findnextclip
  981. foundnextclip
  982.  addq.l #2,d0
  983.  
  984. thisonenull:
  985.  addq #8,a3 
  986.  bra.s dowholezone
  987. nomorethiszone:
  988.  dbra d7,assignclips
  989.  
  990.  lea (a2,d0.l),a2
  991.  move.l a2,CONNECT_TABLE
  992.  
  993. noclips:
  994.  
  995. * Put in addresses of glowything
  996.  
  997.  
  998. ************************************
  999.  
  1000. ; cmp.b #'k',Prefsfile
  1001. ; bne.s nkb
  1002.  
  1003. ;nkb:
  1004. ; cmp.b #'m',Prefsfile
  1005. ; bne.s nmc
  1006. ; clr.b PLR1KEYS
  1007. ; clr.b PLR1PATH
  1008. ; st PLR1MOUSE
  1009. ; clr.b PLR1JOY
  1010. ;nmc:
  1011. ; cmp.b #'j',Prefsfile
  1012. ; bne.s njc
  1013. ; clr.b PLR1KEYS
  1014. ; clr.b PLR1PATH
  1015. ; clr.b PLR1MOUSE
  1016. ; st PLR1JOY
  1017. ;njc:
  1018.  
  1019.  clr.b PLR1_StoodInTop
  1020.  move.l #playerheight,PLR1s_height
  1021.  
  1022.  move.l #empty,pos1LEFT
  1023.  move.l #empty,pos2LEFT
  1024.  move.l #empty,pos1RIGHT
  1025.  move.l #empty,pos2RIGHT
  1026.  move.l #empty,pos0LEFT
  1027.  move.l #empty,pos3LEFT
  1028.  move.l #empty,pos0RIGHT
  1029.  move.l #empty,pos3RIGHT
  1030.  move.l #emptyend,Samp0endLEFT
  1031.  move.l #emptyend,Samp1endLEFT
  1032.  move.l #emptyend,Samp0endRIGHT
  1033.  move.l #emptyend,Samp1endRIGHT
  1034.  move.l #emptyend,Samp2endLEFT
  1035.  move.l #emptyend,Samp3endLEFT
  1036.  move.l #emptyend,Samp2endRIGHT
  1037.  move.l #emptyend,Samp3endRIGHT
  1038.  
  1039.  
  1040.  move.l #nullline,d0
  1041.  move.w d0,n1l
  1042.  swap d0
  1043.  move.w d0,n1h
  1044.  
  1045.  move.l Panel,d0
  1046.  move.w d0,p1l
  1047.  swap d0
  1048.  move.w d0,p1h
  1049.  swap d0
  1050.  add.l #40,d0
  1051.  move.w d0,p2l
  1052.  swap d0
  1053.  move.w d0,p2h
  1054.  swap d0
  1055.  add.l #40,d0
  1056.  move.w d0,p3l
  1057.  swap d0
  1058.  move.w d0,p3h
  1059.  swap d0
  1060.  add.l #40,d0
  1061.  move.w d0,p4l
  1062.  swap d0
  1063.  move.w d0,p4h
  1064.  swap d0
  1065.  add.l #40,d0
  1066.  move.w d0,p5l
  1067.  swap d0
  1068.  move.w d0,p5h
  1069.  swap d0
  1070.  add.l #40,d0
  1071.  move.w d0,p6l
  1072.  swap d0
  1073.  move.w d0,p6h
  1074.  swap d0
  1075.  add.l #40,d0
  1076.  move.w d0,p7l
  1077.  swap d0
  1078.  move.w d0,p7h
  1079.  swap d0
  1080.  add.l #40,d0
  1081.  move.w d0,p8l
  1082.  swap d0
  1083.  move.w d0,p8h
  1084.  
  1085. *******************************
  1086. * TIMER SCREEN SETUP
  1087. ; move.l #TimerScr,d0
  1088. ; move.w d0,p1l
  1089. ; swap d0
  1090. ; move.w d0,p1h
  1091. ; move.w #$1201,Panelcon
  1092.  
  1093. ; move.l #borders,d0
  1094. ; move.w d0,s0l
  1095. ; swap d0
  1096. ; move.w d0,s0h
  1097. ; move.l #borders+2592,d0
  1098. ; move.w d0,s1l
  1099. ; swap d0
  1100. ; move.w d0,s1h
  1101. ; move.l #borders+2592*2,d0
  1102. ; move.w d0,s2l
  1103. ; swap d0
  1104. ; move.w d0,s2h
  1105. ; move.l #borders+2592*3,d0
  1106. ; move.w d0,s3l
  1107. ; swap d0
  1108. ; move.w d0,s3h
  1109.  
  1110.  move.l #nullspr,d0
  1111.  move.w d0,s0l
  1112.  move.w d0,s1l
  1113.  move.w d0,s2l
  1114.  move.w d0,s3l
  1115.  
  1116.  move.w d0,s4l
  1117.  move.w d0,s5l
  1118.  move.w d0,s6l
  1119.  move.w d0,s7l
  1120.  swap d0
  1121.  
  1122.  move.w d0,s0h
  1123.  move.w d0,s1h
  1124.  move.w d0,s2h
  1125.  move.w d0,s3h
  1126.  
  1127.  move.w d0,s4h
  1128.  move.w d0,s5h
  1129.  move.w d0,s6h
  1130.  move.w d0,s7h 
  1131.  
  1132.  
  1133. ; move.w #52*256+64,borders
  1134. ; move.w #212*256+0,borders+8
  1135. ; move.w #52*256+64,borders+2592
  1136. ; move.w #212*256+128,borders+8+2592
  1137. ; move.w #52*256+192,borders+2592*2
  1138. ; move.w #212*256+0,borders+8+2592*2
  1139. ; move.w #52*256+192,borders+2592*3
  1140. ; move.w #212*256+128,borders+8+2592*3
  1141.  
  1142.  move.l #FacePlace,d0
  1143.  move.w d0,f1l
  1144.  swap d0
  1145.  move.w d0,f1h
  1146.  move.l #FacePlace+32*24,d0
  1147.  move.w d0,f2l
  1148.  swap d0
  1149.  move.w d0,f2h
  1150.  move.l #FacePlace+32*24*2,d0
  1151.  move.w d0,f3l
  1152.  swap d0
  1153.  move.w d0,f3h
  1154.  move.l #FacePlace+32*24*3,d0
  1155.  move.w d0,f4l
  1156.  swap d0
  1157.  move.w d0,f4h
  1158.  move.l #FacePlace+32*24*4,d0
  1159.  move.w d0,f5l
  1160.  swap d0
  1161.  move.w d0,f5h
  1162.   
  1163.  
  1164.  move.l #bigfield,d0
  1165.  move.w d0,ocl
  1166.  swap d0
  1167.  move.w d0,och
  1168.  
  1169.  bset.b #1,$bfe001
  1170.  
  1171. ; jmp stuff
  1172. ;endstuff:
  1173.  
  1174.  move.w #$00ff,$dff09e
  1175.  
  1176. ; move.l #Blurbfield,$dff080
  1177.  
  1178.  move.w #0,d0
  1179.  
  1180.  move.l scrn,d0
  1181.  move.w d0,pl1l
  1182.  swap d0
  1183.  move.w d0,pl1h
  1184.  
  1185.  swap d0
  1186.  add.l #10240,d0
  1187.  move.w d0,pl2l
  1188.  swap d0
  1189.  move.w d0,pl2h
  1190.  
  1191.  swap d0
  1192.  add.l #10240,d0
  1193.  move.w d0,pl3l
  1194.  swap d0
  1195.  move.w d0,pl3h
  1196.  
  1197.  swap d0
  1198.  add.l #10240,d0
  1199.  move.w d0,pl4l
  1200.  swap d0
  1201.  move.w d0,pl4h
  1202.  
  1203.  swap d0
  1204.  add.l #10240,d0
  1205.  move.w d0,pl5l
  1206.  swap d0
  1207.  move.w d0,pl5h
  1208.  
  1209.  swap d0
  1210.  add.l #10240,d0
  1211.  move.w d0,pl6l
  1212.  swap d0
  1213.  move.w d0,pl6h
  1214.  
  1215.  swap d0
  1216.  add.l #10240,d0
  1217.  move.w d0,pl7l
  1218.  swap d0
  1219.  move.w d0,pl7h
  1220.  
  1221.  swap d0
  1222.  add.l #10240,d0
  1223.  move.w d0,pl8l
  1224.  swap d0
  1225.  move.w d0,pl8h
  1226.  
  1227.  
  1228. ****************************
  1229.  jsr INITPLAYER
  1230. ; bsr initobjpos
  1231. ****************************
  1232.  
  1233.  
  1234.  move.l #$dff000,a6
  1235.  
  1236.  move.l #null,$dff0a0
  1237.  move.w #100,$dff0a4
  1238.  move.w #443,$dff0a6
  1239.  move.w #63,$dff0a8
  1240.  
  1241.  move.l #null2,$dff0b0
  1242.  move.w #100,$dff0b4
  1243.  move.w #443,$dff0b6
  1244.  move.w #63,$dff0b8
  1245.  
  1246.  move.l #null4,$dff0c0
  1247.  move.w #100,$dff0c4
  1248.  move.w #443,$dff0c6
  1249.  move.w #63,$dff0c8
  1250.  
  1251.  move.l #null3,$dff0d0
  1252.  move.w #100,$dff0d4
  1253.  move.w #443,$dff0d6
  1254.  move.w #63,$dff0d8
  1255.  
  1256.  ifeq CHEESEY
  1257.  
  1258.  move.l #tab,a1
  1259.  move.w #64,d7
  1260.  move.w #0,d6
  1261. outerlop
  1262.  move.l #pretab,a0
  1263.  move.w #255,d5
  1264. scaledownlop:
  1265.  move.b (a0)+,d0
  1266.  ext.w d0
  1267.  ext.l d0
  1268.  muls d6,d0
  1269.  asr.l #6,d0
  1270.  move.b d0,(a1)+
  1271.  dbra d5,scaledownlop
  1272.  addq #1,d6
  1273.  dbra d7,outerlop
  1274.  
  1275.  endc
  1276.  
  1277.  move.l #$dff000,a6
  1278.  
  1279.  move.w #$c018,intena(a6)
  1280.  
  1281.  move.w #$f,dmacon(a6)
  1282.  move.w #$820f,dmacon(a6)
  1283.  
  1284. ; bsr protinit
  1285.  
  1286.  
  1287. ; move.w #$20,$1dc(a6)
  1288.  
  1289.  move.w #$0,$dff034
  1290.  move.w #0,Conditions
  1291.  
  1292.  cmp.b #'n',mors
  1293.  beq.s .nokeys
  1294.  move.w #%111111111111,Conditions
  1295. .nokeys:
  1296.  
  1297.  move.l #KeyMap,a5
  1298.  clr.b $45(a5)
  1299.  
  1300.  move.l #ingame,mt_data
  1301.  clr.b UseAllChannels
  1302.  
  1303. ; cmp.b #'b',Prefsfile+3
  1304. ; bne.s .noback
  1305. ; jsr mt_init
  1306. ;.noback:
  1307. ;
  1308. ; clr.b CHANNELDATA
  1309. ; clr.b CHANNELDATA+8
  1310. ; clr.b CHANNELDATA+16
  1311. ; clr.b CHANNELDATA+24
  1312. ;
  1313. ; cmp.b #'b',Prefsfile+3
  1314. ; bne.s noreserve
  1315. ;
  1316. ; st CHANNELDATA
  1317. ; st CHANNELDATA+8
  1318. ; st CHANNELDATA+16
  1319. ; st CHANNELDATA+24
  1320. ;noreserve: 
  1321.  
  1322. ; st CHANNELDATA
  1323. ; st CHANNELDATA+8
  1324.  
  1325.  move.l SampleList+6*8,pos0LEFT
  1326.  move.l SampleList+6*8+4,Samp0endLEFT
  1327.  move.l #playerheight,PLR1s_targheight
  1328.  move.l #playerheight,PLR1s_height
  1329.  move.l #playerheight,PLR2s_targheight
  1330.  move.l #playerheight,PLR2s_height
  1331.  
  1332. ; cmp.b #'n',mors
  1333. ; beq.s nohandshake
  1334. ;
  1335. ; move.b #%11011000,$bfd200
  1336. ; move.b #%00010000,$bfd000
  1337. ;waitloop:
  1338. ; btst.b #4,$bfd000
  1339. ; bne.s waitloop
  1340. ; move.b #%11000000,$bfd200
  1341.  
  1342. ;wtmouse:
  1343. ; btst #6,$bfe001
  1344. ; bne.s wtmouse
  1345.  
  1346. ;nohandshake:
  1347.  
  1348. ; jmp end
  1349.  
  1350. ; move.l COPSCRN1,drawpt
  1351. ; move.l COPSCRN2,olddrawpt
  1352.  
  1353.  jsr CLEARKEYBOARD
  1354. ; jsr MAKEBACKROUT
  1355.  
  1356.  clr.b MASTERQUITTING
  1357.  
  1358.  cmp.b #'n',mors
  1359.  seq SLAVEQUITTING
  1360.  
  1361. ; move.w #200,PLAYERTWOHEALTH
  1362. ; move.w #200,PLAYERONEHEALTH
  1363.  
  1364. ; move.l #ANOTHERSUP,$80
  1365. ; trap #0
  1366. ; rts
  1367. ;
  1368. ;ANOTHERSUP:
  1369.  
  1370.  move.l $4.w,a6
  1371.  jsr _LVOSuperState(a6)
  1372.  move.l d0,SSTACK
  1373.  
  1374.  CACHE_FREEZE_OFF d2
  1375.  
  1376. ; charlie
  1377. ; DATA_CACHE_ON d2
  1378.  
  1379.  DataCacheOn
  1380.  
  1381.  move.l $4.w,a6
  1382.  move.l SSTACK,d0
  1383.  jsr _LVOUserState(a6)
  1384.  
  1385.  move.l #0,hitcol
  1386.  
  1387.  cmp.b #'n',mors
  1388.  bne.s NOCLTXT
  1389.  
  1390.  move.b #0,lastpressed
  1391. .wtpress
  1392.  btst #6,$bfe001
  1393.  beq.s CLOSETXT
  1394.  btst #7,$bfe001
  1395.  beq.s CLOSETXT
  1396.  tst.b lastpressed
  1397.  beq.s .wtpress
  1398.  
  1399. CLOSETXT:
  1400.  
  1401.  move.w #$8f8,d0
  1402.  move.w #7,d1
  1403.  
  1404. .fdup
  1405.  move.w d0,TXTCOLL
  1406.  sub.w #$121,d0
  1407. .wtframe:
  1408.  btst #5,$dff000+intreqrl
  1409.  beq.s .wtframe
  1410.  move.w #$0020,$dff000+intreq
  1411.  dbra d1,.fdup
  1412.  
  1413.  move.w #0,TXTCOLL
  1414.  
  1415. NOCLTXT:
  1416.  
  1417.  
  1418.  
  1419.     move.l    4.w,a6
  1420.     jsr    _LVOForbid(a6)
  1421. ;    jsr    _LVODisable(a6)
  1422.  
  1423.  
  1424. ;    move.w    #%0111111111111111,intena+$dff000
  1425. ;    move.w    #%1000000011111111,intena+$dff000
  1426.  
  1427.  
  1428. ;charlie 
  1429.  move.l #PALETTEBIT,$dff084
  1430.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1431.  
  1432.  
  1433.  clr.b PLR1_Ducked
  1434.  clr.b PLR2_Ducked
  1435.  clr.b p1_ducked
  1436.  clr.b p2_ducked
  1437.  
  1438. ********************************************
  1439.  
  1440. ;    jmp docredits
  1441.  
  1442. ********************************************
  1443.  
  1444.  
  1445.  st doanything
  1446.  st dosounds
  1447.  
  1448.  jsr CLRNASTYMEM
  1449.  
  1450.  move.l #COMPACTMAP,a0
  1451.  move.l a0,LASTZONE
  1452.  move.w #255,d0
  1453. .clrmap
  1454.  move.l #0,(a0)+
  1455.  dbra d0,.clrmap
  1456.  
  1457.  move.l #COMPACTMAP,a0
  1458.  move.l #BIGMAP,a1
  1459.  
  1460.  bra NOALLWALLS
  1461.  
  1462.  move.l ZoneGraphAdds,a2
  1463. DOALLWALLS:
  1464.  move.l (a2),d0
  1465.  beq.s nomorezones
  1466.  move.l d0,a3
  1467.  
  1468.  addq #8,a2
  1469.  
  1470.  add.l LEVELGRAPHICS,a3
  1471.  addq #2,a3
  1472.  move.l a1,a4
  1473.  
  1474. ; DOLOWERROOM
  1475.  
  1476. innerwalls:
  1477.  move.b (a3),d1
  1478.  move.b 1(a3),d0
  1479.  bne doneinner
  1480.  
  1481.  tst.b d1
  1482.  blt noid
  1483.  
  1484.  move.b d1,d3
  1485.  and.w #15,d1
  1486.  
  1487.  moveq #0,d0
  1488.  move.w d1,d2
  1489.  add.w d1,d1
  1490.  add.w d2,d1
  1491.  addq #1,d1
  1492.  bset d1,d0
  1493.  btst #4,d3
  1494.  beq.s .nodoor
  1495.  addq #1,d1
  1496.  bset d1,d0
  1497. .nodoor
  1498.  
  1499.  or.l d0,(a0)
  1500.  
  1501.  move.w 2(a3),(a4)
  1502.  move.w 4(a3),2(a4)
  1503.  
  1504. noid:
  1505.  
  1506.  add.w #30,a3
  1507.  addq #4,a4
  1508.  
  1509.  bra innerwalls
  1510.  
  1511. doneinner:
  1512.  
  1513.  add.w #40,a1
  1514.  addq #4,a0
  1515.  
  1516.  bra DOALLWALLS
  1517. nomorezones:
  1518.  
  1519. NOALLWALLS
  1520.  
  1521.  move.w #96,MIDDLEX
  1522.  move.w #192,RIGHTX
  1523.  move.w #160,BOTTOMY
  1524.  move.w #80,TOTHEMIDDLE
  1525.  clr.b FULLSCR
  1526.  move.l scrn,a0
  1527.  jsr WIPEDISPLAY
  1528.  move.l scrn2,a0
  1529.  jsr WIPEDISPLAY
  1530.  
  1531.  st PLAYERONEGUNS+1
  1532.  st PLAYERTWOGUNS+1
  1533.  
  1534.  move.w #100,timetodamage
  1535.  
  1536.  move.w #299,d0
  1537.  move.l #DAMAGED,a0
  1538. CLRDAM:
  1539.  move.w #0,(a0)+
  1540.  dbra d0,CLRDAM
  1541.  
  1542.  moveq #0,d0
  1543.  move.w d0,STOPOFFSET
  1544.  neg.w d0
  1545.  add.w TOTHEMIDDLE,d0
  1546.  move.w d0,SMIDDLEY
  1547.  muls #320,d0
  1548.  move.l d0,SBIGMIDDLEY
  1549.  
  1550.  move.w #0,PLR1_AIMSPD
  1551.  move.w #0,PLR2_AIMSPD
  1552.  
  1553.  move.l scrn,SCRNSHOWPT
  1554.  
  1555.  move.l scrn2,SCRNDRAWPT
  1556.  
  1557.  move.w #%110000000000,$dff034
  1558.  
  1559.  
  1560. lop:
  1561.  
  1562.  move.b MAPON,REALMAPON
  1563.  
  1564.  move.b FULLSCRTEMP,d0
  1565.  move.b FULLSCR,d1
  1566.  eor.b d1,d0
  1567.  beq.s .notswapscr2
  1568.  
  1569.  move.b FULLSCRTEMP,FULLSCR
  1570.  beq.s .notswapscr3
  1571.  
  1572.  move.w #144,MIDDLEX
  1573.  move.w #288,RIGHTX
  1574.  move.w #232,BOTTOMY
  1575.  move.w #120,TOTHEMIDDLE
  1576.  move.l SCRNSHOWPT,a0
  1577.  jsr WIPEDISPLAY
  1578.  move.l SCRNDRAWPT,a0
  1579.  jsr WIPEDISPLAY
  1580.  
  1581.  bra.s .notswapscr2
  1582.  
  1583. .notswapscr3:
  1584.  move.w #96,MIDDLEX
  1585.  move.w #192,RIGHTX
  1586.  move.w #160,BOTTOMY
  1587.  move.w #80,TOTHEMIDDLE
  1588.  move.l SCRNSHOWPT,a0
  1589.  jsr WIPEDISPLAY
  1590.  move.l SCRNDRAWPT,a0
  1591.  jsr WIPEDISPLAY
  1592. .notswapscr2:
  1593.  
  1594.  
  1595.  btst #6,$bfe001
  1596. ;charlie bne.b .nocop
  1597.  
  1598. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1599.  
  1600. .nocop
  1601.  
  1602.  move.l #KeyMap,a5
  1603.  
  1604.  cmp.b #'n',mors
  1605.  bne .nopause
  1606.  tst.b $19(a5)
  1607.  beq.s .nopause
  1608.  clr.b doanything
  1609.  
  1610. .waitrel:
  1611.  
  1612.  tst.b PLR1JOY
  1613.  beq.s .NOJOY
  1614.  jsr _ReadJoy1
  1615. .NOJOY
  1616.  
  1617.  tst.b $19(a5)
  1618.  bne.s .waitrel
  1619.  
  1620.  bsr PAUSEOPTS
  1621.  
  1622.  st doanything
  1623. .nopause: 
  1624.  
  1625.  move.l hitcol,d0
  1626.  move.l d0,d1
  1627.  
  1628. ********************************************
  1629. * Remove after colour testing 
  1630. ; moveq #0,d1
  1631. ********************************************
  1632.  
  1633.  add.l #PALETTEBIT,d1
  1634.  tst.l d0
  1635.  beq.s nofadedownhc
  1636.  sub.l #2116,d0
  1637.  move.l d0,hitcol
  1638. nofadedownhc:
  1639.  
  1640.  move.l d1,a0
  1641.  move.l #PALETTESPACE,a1
  1642.  move.l #(2116/4)-2,d0
  1643. putinpal:
  1644.  move.l (a0)+,(a1)+
  1645.  dbra d0,putinpal
  1646.  
  1647.  st READCONTROLS
  1648.  move.l #$dff000,a6
  1649.  
  1650.  
  1651.  cmp.b #'n',mors
  1652.  beq .nopause
  1653.  
  1654.  move.b SLAVEPAUSE,d0
  1655.  or.b MASTERPAUSE,d0
  1656.  beq.s .nopause
  1657.  clr.b doanything
  1658.  
  1659.  move.l #KeyMap,a5
  1660. .waitrel:
  1661.  
  1662.  cmp.b #'s',mors
  1663.  beq.s .RE2
  1664.  tst.b PLR1JOY
  1665.  beq.s .NOJOY
  1666.  jsr _ReadJoy1
  1667.  bra .RE1
  1668. .RE2:
  1669.  tst.b PLR2JOY
  1670.  beq.s .NOJOY
  1671.  jsr _ReadJoy2
  1672. .RE1
  1673. .NOJOY:
  1674.  tst.b $19(a5)
  1675.  bne.s .waitrel
  1676.  
  1677.  bsr PAUSEOPTS
  1678.  
  1679.  cmp.b #'m',mors
  1680.  bne.s .slavelast
  1681.  Jsr SENDFIRST
  1682.  bra .masfirst
  1683. .slavelast
  1684.  Jsr RECFIRST
  1685. .masfirst:
  1686.  clr.b SLAVEPAUSE
  1687.  clr.b MASTERPAUSE
  1688.  st doanything
  1689.  
  1690. .nopause: 
  1691.  
  1692.  
  1693.  move.l drawpt,d0
  1694.  move.l olddrawpt,drawpt
  1695.  move.l d0,olddrawpt
  1696.  
  1697.  move.l SCRNDRAWPT,d0
  1698.  move.l SCRNSHOWPT,SCRNDRAWPT
  1699.  move.l d0,SCRNSHOWPT
  1700.  
  1701. ; move.l d0,$dff084    
  1702.  move.l drawpt,a3
  1703. ; move.l COPSCRNBUFF,a3
  1704.  adda.w #10,a3
  1705.  move.l a3,frompt
  1706.  add.l #104*4*40,a3
  1707.  move.l a3,midpt
  1708.  
  1709.  cmp.b #'s',mors
  1710.  beq.s nowaitslave
  1711.  
  1712. waitfortop:
  1713.  
  1714.  btst.b #0,intreqrl(a6)
  1715.  beq.b waitfortop
  1716.  
  1717.  move.w #$1,intreq(a6)
  1718. ; move.l #PLR1_GunData,GunData
  1719.  move.b PLR1_GunSelected,GunSelected
  1720.  bra waitmaster
  1721.  
  1722. nowaitslave:
  1723. ; move.l #PLR2_GunData,GunData
  1724.  move.b PLR2_GunSelected,GunSelected
  1725. waitmaster:
  1726.  
  1727.  move.l d0,d1
  1728.  move.l d1,d0
  1729.  move.w d0,pl1l
  1730.  swap d0
  1731.  move.w d0,pl1h
  1732.  
  1733.  add.l #10240,d1
  1734.  move.l d1,d0
  1735.  move.w d0,pl2l
  1736.  swap d0
  1737.  move.w d0,pl2h
  1738.  
  1739.  add.l #10240,d1
  1740.  move.l d1,d0
  1741.  move.w d0,pl3l
  1742.  swap d0
  1743.  move.w d0,pl3h
  1744.  
  1745.  add.l #10240,d1
  1746.  move.l d1,d0
  1747.  move.w d0,pl4l
  1748.  swap d0
  1749.  move.w d0,pl4h
  1750.  
  1751.  add.l #10240,d1
  1752.  move.l d1,d0
  1753.  move.w d0,pl5l
  1754.  swap d0
  1755.  move.w d0,pl5h
  1756.  
  1757.  add.l #10240,d1
  1758.  move.l d1,d0
  1759.  move.w d0,pl6l
  1760.  swap d0
  1761.  move.w d0,pl6h
  1762.  
  1763.  add.l #10240,d1
  1764.  move.l d1,d0
  1765.  move.w d0,pl7l
  1766.  swap d0
  1767.  move.w d0,pl7h
  1768.  
  1769.  add.l #10240,d1
  1770.  move.l d1,d0
  1771.  move.w d0,pl8l
  1772.  swap d0
  1773.  move.w d0,pl8h 
  1774.  
  1775.  move.l #SMIDDLEY,a0
  1776.  movem.l (a0)+,d0/d1
  1777.  move.l d0,MIDDLEY
  1778.  move.l d1,MIDDLEY+4
  1779.  
  1780.  move.l waterpt,a0
  1781.  move.l (a0)+,watertouse
  1782.  cmp.l #endwaterlist,a0
  1783.  blt.s okwat
  1784.  move.l #waterlist,a0
  1785. okwat:
  1786.  move.l a0,waterpt
  1787.  
  1788.  add.w #640,wtan
  1789.  and.w #8191,wtan
  1790.  add.l #1,wateroff
  1791.  and.l #$3fff3fff,wateroff
  1792.  
  1793.  move.l PLR1_xoff,OLDX1
  1794.  move.l PLR1_zoff,OLDZ1
  1795.  move.l PLR2_xoff,OLDX2
  1796.  move.l PLR2_zoff,OLDZ2
  1797.  
  1798.  move.l #$dff000,a6
  1799.  
  1800.  cmp.b #'s',mors
  1801.  beq ASlaveShouldWaitOnHisMaster
  1802.  
  1803.  cmp.b #'n',mors
  1804.  bne NotOnePlayer
  1805.  
  1806.  movem.l d0-d7/a0-a6,-(a7)
  1807.  
  1808.  moveq #0,d0
  1809.  move.b GunSelected,d0
  1810.  move.l LINKFILE,a6
  1811.  add.l #GunBulletTypes,a6
  1812.  move.w (a6,d0.w*8),d0
  1813.  
  1814.  move.l #PLAYERONEAMMO,a6
  1815.  move.w (a6,d0.w*2),d0
  1816.  move.w d0,Ammo
  1817.  movem.l (a7)+,d0-d7/a0-a6
  1818.  
  1819.  move.w PLAYERONEHEALTH,Energy
  1820.  
  1821.  move.w FramesToDraw,TempFrames
  1822.  cmp.w #15,TempFrames
  1823.  blt.s .okframe
  1824.  move.w #15,TempFrames
  1825. .okframe:
  1826.  move.w #0,FramesToDraw
  1827.  
  1828. *********************************************
  1829. *********** TAKE THIS OUT *******************
  1830. *********************************************
  1831.  
  1832.  move.l CHEATPTR,a4
  1833.  add.l #200000,a4
  1834.  moveq #0,d0
  1835.  move.b (a4),d0
  1836.  
  1837.  move.l #KeyMap,a5
  1838.  tst.b (a5,d0.w)
  1839.  beq.s .nocheat
  1840.  
  1841.  addq #1,a4
  1842.  cmp.l #ENDCHEAT,a4
  1843.  blt.s .nocheat
  1844.  cmp.w #0,CHEATNUM
  1845.  beq.s .nocheat
  1846.  sub.w #1,CHEATNUM
  1847.  move.l #CHEATFRAME,a4
  1848.  move.w #127,PLR1_energy
  1849.  jsr EnergyBar
  1850. .nocheat
  1851.  
  1852.  sub.l #200000,a4
  1853.  move.l a4,CHEATPTR
  1854.  
  1855. **********************************************
  1856. **********************************************
  1857. **********************************************
  1858.  
  1859.  move.l PLR1s_xoff,p1_xoff
  1860.  move.l PLR1s_zoff,p1_zoff
  1861.  move.l PLR1s_yoff,p1_yoff
  1862.  move.l PLR1s_height,p1_height
  1863.  move.w PLR1s_angpos,p1_angpos
  1864.  move.w PLR1_bobble,p1_bobble
  1865.  move.b PLR1_clicked,p1_clicked
  1866.  move.b PLR1_fire,p1_fire
  1867.  clr.b PLR1_clicked
  1868.  move.b PLR1_SPCTAP,p1_spctap
  1869.  clr.b PLR1_SPCTAP
  1870.  move.b PLR1_Ducked,p1_ducked
  1871.  move.b PLR1_GunSelected,p1_gunselected
  1872.  
  1873.  bsr PLR1_Control
  1874.  
  1875.  move.l PLR1_Roompt,a0
  1876.  move.l ToZoneRoof(a0),SplitHeight
  1877.  move.w p1_xoff,THISPLRxoff
  1878.  move.w p1_zoff,THISPLRzoff
  1879.  
  1880.  
  1881.  move.l #$60000,p2_yoff
  1882.  move.l PLR2_Obj,a0
  1883.  move.w #-1,GraphicRoom(a0)
  1884.  move.w #-1,12(a0)
  1885.  move.b #0,17(a0)
  1886.  move.l #BollocksRoom,PLR2_Roompt
  1887.  
  1888.  bra donetalking
  1889.  
  1890. NotOnePlayer:
  1891.  move.l #KeyMap,a5
  1892.  tst.b $19(a5)
  1893.  sne MASTERPAUSE
  1894.  
  1895. *********************************
  1896.  move.w PLAYERONEHEALTH,Energy
  1897. ; change this back
  1898. *********************************
  1899.  movem.l d0-d7/a0-a6,-(a7)
  1900.  
  1901.  moveq #0,d0
  1902.  move.b GunSelected,d0
  1903.  move.l LINKFILE,a6
  1904.  add.l #GunBulletTypes,a6
  1905.  move.w (a6,d0.w*8),d0
  1906.  
  1907.  move.l #PLAYERONEAMMO,a6
  1908.  move.w (a6,d0.w*2),d0
  1909.  move.w d0,Ammo
  1910.  movem.l (a7)+,d0-d7/a0-a6
  1911.  
  1912.  jsr SENDFIRST
  1913.  
  1914.  move.w FramesToDraw,TempFrames
  1915.  cmp.w #15,TempFrames
  1916.  blt.s .okframe
  1917.  move.w #15,TempFrames
  1918. .okframe:
  1919.  move.w #0,FramesToDraw
  1920.  
  1921.  move.l PLR1s_xoff,p1_xoff
  1922.  move.l PLR1s_zoff,p1_zoff
  1923.  move.l PLR1s_yoff,p1_yoff
  1924.  move.l PLR1s_height,p1_height
  1925.  move.w PLR1s_angpos,p1_angpos
  1926.  move.w PLR1_bobble,p1_bobble
  1927.  move.b PLR1_clicked,p1_clicked
  1928.  clr.b PLR1_clicked
  1929.  move.b PLR1_fire,p1_fire
  1930.  move.b PLR1_SPCTAP,p1_spctap
  1931.  clr.b PLR1_SPCTAP
  1932.  move.b PLR1_Ducked,p1_ducked
  1933.  move.b PLR1_GunSelected,p1_gunselected
  1934.  
  1935.  move.l PLR1_AIMSPD,d0
  1936.  jsr SENDFIRST
  1937.  move.l d0,PLR2_AIMSPD
  1938.  
  1939.  move.l p1_xoff,d0
  1940.  jsr SENDFIRST
  1941.  move.l d0,p2_xoff
  1942.  
  1943.  move.l p1_zoff,d0
  1944.  jsr SENDFIRST
  1945.  move.l d0,p2_zoff 
  1946.  
  1947.  move.l p1_yoff,d0
  1948.  jsr SENDFIRST
  1949.  move.l d0,p2_yoff
  1950.   
  1951.  move.l p1_height,d0
  1952.  jsr SENDFIRST
  1953.  move.l d0,p2_height
  1954.  
  1955.  move.w p1_angpos,d0
  1956.  swap d0
  1957.  move.w p1_bobble,d0
  1958.  jsr SENDFIRST
  1959.  move.w d0,p2_bobble
  1960.  swap d0
  1961.  move.w d0,p2_angpos
  1962.  
  1963.  
  1964.  move.w TempFrames,d0
  1965.  swap d0
  1966.  move.b p1_spctap,d0
  1967.  lsl.w #8,d0
  1968.  move.b p1_clicked,d0
  1969.  jsr SENDFIRST
  1970.  move.b d0,p2_clicked
  1971.  lsr.w #8,d0
  1972.  move.b d0,p2_spctap
  1973.  
  1974.  
  1975.  move.w Rand1,d0
  1976.  swap d0
  1977.  move.b p1_ducked,d0
  1978.  lsl.w #8,d0
  1979.  move.b p1_gunselected,d0
  1980.  jsr SENDFIRST
  1981.  move.b d0,p2_gunselected
  1982.  lsr.w #8,d0
  1983.  move.b d0,p2_ducked
  1984.  
  1985.  move.b p1_fire,d0
  1986.  lsl.w #8,d0
  1987.  move.b MASTERQUITTING,d0
  1988.  or.b d0,SLAVEQUITTING
  1989.  swap d0
  1990.  move.b MASTERPAUSE,d0
  1991.  or.b d0,SLAVEPAUSE
  1992.  jsr SENDFIRST
  1993.  or.b d0,MASTERPAUSE
  1994.  or.b d0,SLAVEPAUSE
  1995.  swap d0
  1996.  or.b d0,SLAVEQUITTING
  1997.  or.b d0,MASTERQUITTING
  1998.  lsr.w #8,d0
  1999.  move.b d0,p2_fire
  2000.  
  2001.  bsr PLR1_Control
  2002.  bsr PLR2_Control
  2003.  move.l PLR1_Roompt,a0
  2004.  move.l ToZoneRoof(a0),SplitHeight
  2005.  move.w p1_xoff,THISPLRxoff
  2006.  move.w p1_zoff,THISPLRzoff
  2007.  
  2008.  bra donetalking
  2009.  
  2010. ASlaveShouldWaitOnHisMaster:
  2011.  
  2012.  move.l #KeyMap,a5
  2013.  tst.b $19(a5)
  2014.  sne SLAVEPAUSE
  2015.  
  2016.  movem.l d0-d7/a0-a6,-(a7)
  2017.  
  2018.  moveq #0,d0
  2019.  move.b GunSelected,d0
  2020.  move.l LINKFILE,a6
  2021.  add.l #GunBulletTypes,a6
  2022.  move.w (a6,d0.w*8),d0
  2023.  
  2024.  move.l #PLAYERTWOAMMO,a6
  2025.  move.w (a6,d0.w*2),d0
  2026.  move.w d0,Ammo
  2027.  movem.l (a7)+,d0-d7/a0-a6
  2028.  
  2029.  move.w PLAYERTWOHEALTH,Energy
  2030.  
  2031.  jsr RECFIRST
  2032.  
  2033.  move.l PLR2s_xoff,p2_xoff
  2034.  move.l PLR2s_zoff,p2_zoff
  2035.  move.l PLR2s_yoff,p2_yoff
  2036.  move.l PLR2s_height,p2_height
  2037.  move.w PLR2s_angpos,p2_angpos
  2038.  move.w PLR2_bobble,p2_bobble
  2039.  move.b PLR2_clicked,p2_clicked
  2040.  clr.b PLR2_clicked
  2041.  move.b PLR2_fire,p2_fire
  2042.  move.b PLR2_SPCTAP,p2_spctap
  2043.  clr.b PLR2_SPCTAP
  2044.  move.b PLR2_Ducked,p2_ducked
  2045.  move.b PLR2_GunSelected,p2_gunselected
  2046.  
  2047.  move.l PLR2_AIMSPD,d0
  2048.  jsr RECFIRST
  2049.  move.l d0,PLR1_AIMSPD
  2050.  
  2051.  move.l p2_xoff,d0
  2052.  jsr RECFIRST
  2053.  move.l d0,p1_xoff
  2054.  
  2055.  move.l p2_zoff,d0
  2056.  jsr RECFIRST
  2057.  move.l d0,p1_zoff
  2058.  
  2059.  move.l p2_yoff,d0
  2060.  jsr RECFIRST
  2061.  move.l d0,p1_yoff
  2062.  
  2063.  move.l p2_height,d0
  2064.  jsr RECFIRST
  2065.  move.l d0,p1_height
  2066.  
  2067.  move.w p2_angpos,d0
  2068.  swap d0
  2069.  move.w p2_bobble,d0
  2070.  jsr RECFIRST
  2071.  move.w d0,p1_bobble
  2072.  swap d0
  2073.  move.w d0,p1_angpos
  2074.  
  2075.  
  2076.  move.b p2_spctap,d0
  2077.  lsl.w #8,d0
  2078.  move.b p2_clicked,d0
  2079.  jsr RECFIRST
  2080.  move.b d0,p1_clicked
  2081.  lsr.w #8,d0
  2082.  move.b d0,p1_spctap
  2083.  swap d0
  2084.  move.w d0,TempFrames
  2085.  
  2086.  move.b p2_ducked,d0
  2087.  lsl.w #8,d0
  2088.  move.b p2_gunselected,d0
  2089.  jsr RECFIRST
  2090.  move.b d0,p1_gunselected
  2091.  lsr.w #8,d0
  2092.  move.b d0,p1_ducked
  2093.  swap d0
  2094.  move.w d0,Rand1
  2095.  
  2096.  move.b p2_fire,d0
  2097.  lsl.w #8,d0
  2098.  move.b SLAVEQUITTING,d0
  2099.  or.b d0,MASTERQUITTING
  2100.  swap d0
  2101.  move.b SLAVEPAUSE,d0
  2102.  or.b d0,MASTERPAUSE
  2103.  jsr RECFIRST
  2104.  or.b d0,MASTERPAUSE
  2105.  or.b d0,SLAVEPAUSE
  2106.  swap d0
  2107.  or.b d0,SLAVEQUITTING
  2108.  or.b d0,MASTERQUITTING
  2109.  lsr.w #8,d0
  2110.  move.b d0,p1_fire
  2111.  
  2112.  
  2113.  bsr PLR1_Control
  2114.  bsr PLR2_Control
  2115.  move.w p2_xoff,THISPLRxoff
  2116.  move.w p2_zoff,THISPLRzoff
  2117.  move.l PLR2_Roompt,a0
  2118.  move.l ToZoneRoof(a0),SplitHeight
  2119.  
  2120. donetalking:
  2121.  
  2122.  
  2123.  move.l #ZoneBrightTable,a1
  2124.  move.l ZoneAdds,a2
  2125.  move.l PLR2_ListOfGraphRooms,a0
  2126. ; move.l PLR2_PointsToRotatePtr,a5
  2127.  move.l a0,a5
  2128.  cmp.b #'s',mors
  2129.  beq.s doallz
  2130.  move.l PLR1_ListOfGraphRooms,a0
  2131. ; move.l PLR1_PointsToRotatePtr,a5
  2132.  move.l a0,a5 
  2133. doallz
  2134.  move.w (a0),d0
  2135.  blt.s doneallz
  2136.  add.w #8,a0
  2137.  
  2138.  move.l (a2,d0.w*4),a3
  2139.  add.l LEVELDATA,a3
  2140.  move.w ToZoneBrightness(a3),d2
  2141.  
  2142.  blt.s justbright
  2143.  move.w d2,d3
  2144.  lsr.w #8,d3
  2145.  tst.b d3
  2146.  beq.s justbright
  2147.  
  2148.  move.l #BrightAnimTable,a4
  2149.  move.w -2(a4,d3.w*2),d2
  2150.  
  2151. justbright:
  2152.  muls #32,d2
  2153.  divs #20,d2
  2154.  move.w d2,(a1,d0.w*4)
  2155.  
  2156.  move.w ToUpperBrightness(a3),d2
  2157.  
  2158.  blt.s justbright2
  2159.  move.w d2,d3
  2160.  lsr.w #8,d3
  2161.  tst.b d3
  2162.  beq.s justbright2
  2163.  
  2164.  move.l #BrightAnimTable,a4
  2165.  move.w -2(a4,d3.w*2),d2
  2166.  
  2167. justbright2:
  2168.  
  2169.  muls #32,d2
  2170.  divs #20,d2
  2171.  move.w d2,2(a1,d0.w*4)
  2172.  
  2173.  bra doallz
  2174.  
  2175. doneallz:
  2176.  
  2177.  move.l PointBrights,a2
  2178.  move.l #CurrentPointBrights,a3
  2179. justtheone:
  2180.  move.w (a5),d0
  2181.  blt whythehell
  2182.  addq #8,a5
  2183.  
  2184.  muls #40,d0
  2185.  
  2186.  move.w #39,d7
  2187.  
  2188. allinzone:
  2189.  move.w (a2,d0.w*2),d2
  2190.  
  2191.  tst.b d2
  2192.  blt.s .justbright
  2193.  move.w d2,d3
  2194.  lsr.w #8,d3
  2195.  tst.b d3
  2196.  beq.s .justbright
  2197.  
  2198.  move.w d3,d4
  2199.  and.w #$f,d3
  2200.  lsr.w #4,d4
  2201.  add.w #1,d4
  2202.  move.l #BrightAnimTable,a0
  2203.  move.w -2(a0,d3.w*2),d3
  2204.  ext.w d2
  2205.  sub.w d2,d3
  2206.  muls d4,d3
  2207.  asr.w #4,d3
  2208.  add.w d3,d2
  2209.  
  2210. .justbright:
  2211.  ext.w d2
  2212.  
  2213.  muls #31,d2
  2214.  divs #20,d2
  2215.  bge.s .itspos
  2216.  sub.w #600,d2
  2217. .itspos:
  2218.  add.w #300,d2
  2219.  
  2220.  move.w d2,(a3,d0.w*2)
  2221.  addq #1,d0
  2222.  dbra d7,allinzone
  2223.  
  2224.  bra justtheone
  2225.  
  2226. whythehell:
  2227.  
  2228.  move.l PLR1_Roompt,a0
  2229.  move.l #CurrentPointBrights,a1
  2230.  move.l ZoneBorderPts,a2
  2231.  move.w (a0),d0
  2232.  muls #10,d0
  2233.  lea (a2,d0.w*2),a2
  2234.  lea (a1,d0.w*8),a1
  2235.  
  2236.  moveq #9,d7
  2237.  moveq #0,d0
  2238.  moveq #0,d1
  2239. findaverage:
  2240.  tst.w (a2)+
  2241.  blt.s .foundaverage
  2242.  addq #1,d0
  2243.  move.w (a1)+,d2
  2244.  bge.s .okpos
  2245.  neg.w d2
  2246. .okpos:
  2247.  add.w d2,d1
  2248.  
  2249.  dbra d7,findaverage
  2250.  
  2251. .foundaverage:
  2252.  
  2253.  ext.l d1
  2254.  divs d0,d1
  2255.  sub.w #300,d1
  2256.  move.w d1,PLR1_RoomBright
  2257.  
  2258.  cmp.b #'n',mors
  2259.  beq nosee
  2260.  
  2261.  move.l PLR1_Roompt,FromRoom
  2262.  move.l PLR2_Roompt,ToRoom
  2263.  move.w p1_xoff,Viewerx
  2264.  move.w p1_zoff,Viewerz
  2265.  move.l p1_yoff,d0
  2266.  asr.l #7,d0
  2267.  move.w d0,Viewery
  2268.  move.w p2_xoff,Targetx
  2269.  move.w p2_zoff,Targetz
  2270.  move.l p2_yoff,d0
  2271.  asr.l #7,d0
  2272.  move.w d0,Targety
  2273.  move.b PLR1_StoodInTop,ViewerTop
  2274.  move.b PLR2_StoodInTop,TargetTop
  2275.  jsr CanItBeSeen
  2276.  
  2277.  move.l PLR1_Obj,a0
  2278.  move.b CanSee,d0
  2279.  and.b #2,d0
  2280.  move.b d0,17(a0)
  2281.  move.l PLR2_Obj,a0
  2282.  move.b CanSee,d0
  2283.  and.b #1,d0
  2284.  move.b d0,17(a0)
  2285.  
  2286. nosee:
  2287.  
  2288.  
  2289.  move.w TempFrames,d0
  2290.  add.w d0,p1_holddown
  2291.  cmp.w #30,p1_holddown
  2292.  blt.s oklength
  2293.  move.w #30,p1_holddown
  2294. oklength:
  2295.  
  2296.  tst.b p1_fire
  2297.  bne.s okstillheld
  2298.  sub.w d0,p1_holddown
  2299.  bge.s okstillheld
  2300.  move.w #0,p1_holddown
  2301.  
  2302. okstillheld:
  2303.  
  2304.  move.w TempFrames,d0
  2305.  add.w d0,p2_holddown
  2306.  
  2307.  cmp.w #30,p2_holddown
  2308.  blt.s oklength2
  2309.  move.w #30,p2_holddown
  2310. oklength2:
  2311.  
  2312.  
  2313.  tst.b p2_fire
  2314.  bne.s okstillheld2
  2315.  sub.w d0,p2_holddown
  2316.  bge.s okstillheld2
  2317.  move.w #0,p2_holddown
  2318. okstillheld2:
  2319.  
  2320. ***** CHECKING LIGHT *********
  2321.  
  2322. ; move.w #-20,d0
  2323. ; move.w PLR1_xoff,d1
  2324. ; move.w PLR1_zoff,d2
  2325. ; move.l PLR1_Roompt,a0
  2326. ; move.w (a0),d3
  2327. ; move.w PLR1_angpos,d4
  2328. ;
  2329. ; jsr BRIGHTENPOINTSANGLE
  2330.  
  2331. ******************************
  2332.  
  2333. ; move.l #PLR1_GunData,a1
  2334. ; move.w p1_holddown,d0
  2335. ; move.w #50,10+32*3(a1)
  2336. ; move.l #PLR2_GunData,a1
  2337. ; move.w p2_holddown,d0
  2338. ; move.w #50,10+32*3(a1)
  2339.  
  2340. ******************************************
  2341. ******************************************
  2342.  
  2343.  move.w TempFrames,d1
  2344.  bgt.s noze
  2345.  moveq #1,d1
  2346. noze:
  2347.  
  2348.  move.w PLR1_xoff,d0
  2349.  sub.w OLDX1,d0
  2350.  asl.w #4,d0
  2351.  ext.l d0
  2352.  divs d1,d0
  2353.  move.w d0,XDIFF1
  2354.  move.w PLR2_xoff,d0
  2355.  sub.w OLDX2,d0
  2356.  asl.w #4,d0
  2357.  ext.l d0
  2358.  divs d1,d0
  2359.  move.w d0,XDIFF2
  2360.  move.w PLR1_zoff,d0
  2361.  sub.w OLDZ1,d0
  2362.  asl.w #4,d0
  2363.  ext.l d0
  2364.  divs d1,d0
  2365.  move.w d0,ZDIFF1
  2366.  move.w PLR2_zoff,d0
  2367.  sub.w OLDZ2,d0
  2368.  asl.w #4,d0
  2369.  ext.l d0
  2370.  divs d1,d0
  2371.  move.w d0,ZDIFF2
  2372.  
  2373.  cmp.b #'s',mors
  2374.  beq.s ImPlayer2OhYesIAm
  2375.  bsr USEPLR1
  2376.  bra IWasPlayer1
  2377.  
  2378. ImPlayer2OhYesIAm:
  2379.  bsr USEPLR2
  2380. IWasPlayer1:
  2381.  
  2382.  
  2383.  cmp.b #'s',mors
  2384.  beq drawplayer2
  2385.  
  2386.  move.w #0,scaleval
  2387.  
  2388.  move.l PLR1_xoff,xoff
  2389.  move.l PLR1_yoff,yoff
  2390.  move.l PLR1_zoff,zoff
  2391.  move.w PLR1_angpos,angpos
  2392.  move.w PLR1_cosval,cosval
  2393.  move.w PLR1_sinval,sinval
  2394.  
  2395.  
  2396.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2397.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2398.  move.l PLR1_Roompt,Roompt
  2399.  
  2400.  move.l #KeyMap,a5
  2401.  moveq #0,d5
  2402.  move.b look_behind_key,d5
  2403.  tst.b (a5,d5.w)
  2404.  beq.s .nolookback
  2405.  
  2406.  move.l PLR1_Obj,a0
  2407.  move.w #-1,12+128(a0)
  2408.  
  2409.  eor.w #4096,angpos 
  2410.  neg.w cosval
  2411.  neg.w sinval
  2412. .nolookback:
  2413.  
  2414.  bsr OrderZones
  2415.  jsr objmoveanim
  2416.  jsr EnergyBar
  2417.  
  2418.  
  2419.  jsr AmmoBar
  2420.  
  2421. ;********************************************
  2422. ;************* Do reflection ****************
  2423. ;
  2424. ; move.l ListOfGraphRooms,a0
  2425. ; move.l ZoneAdds,a1
  2426. ;checkwaterheights
  2427. ; move.w (a0),d0
  2428. ; blt allzonesdone
  2429. ; addq #8,a0
  2430. ; move.l (a1,d0.w*4),a2
  2431. ; 
  2432. ; add.l LEVELDATA,a2
  2433. ; 
  2434. ; move.l ToZoneWater(a2),d0
  2435. ; cmp.l ToZoneFloor(a2),d0
  2436. ; blt.s WEHAVEAHEIGHT
  2437. ; 
  2438. ; bra.s checkwaterheights
  2439. ;
  2440. ;WEHAVEAHEIGHT:
  2441. ;
  2442. ; sub.l yoff,d0
  2443. ; blt.s underwater
  2444. ; 
  2445. ; add.l d0,d0
  2446. ; add.l d0,yoff
  2447. ; 
  2448. ; move.l FASTBUFFER2,FASTBUFFER
  2449. ; move.w #0,leftclip
  2450. ; move.w RIGHTX,rightclip
  2451. ; move.w #0,deftopclip
  2452. ; move.w #BOTTOMY/2,defbotclip
  2453. ; move.w #0,topclip
  2454. ; move.w #BOTTOMY/2,botclip
  2455. ;
  2456. ; clr.b DOANYWATER 
  2457. ; 
  2458. ; bsr DrawDisplay
  2459. ; 
  2460. ;allzonesdone:
  2461. ;underwater:
  2462.  
  2463. ********************************************
  2464.  
  2465.  st DOANYWATER
  2466.  
  2467.  move.l PLR1_yoff,yoff
  2468.  
  2469.  move.w #0,leftclip
  2470.  move.w RIGHTX,rightclip
  2471.  move.w #0,deftopclip
  2472.  move.w WIDESCRN,d0
  2473.  add.w d0,deftopclip
  2474.  
  2475.  move.w BOTTOMY,defbotclip
  2476.  sub.w d0,defbotclip
  2477.  move.w #0,topclip
  2478.  add.w d0,topclip
  2479.  move.w BOTTOMY,botclip
  2480.  sub.w d0,botclip
  2481. ; sub.l #10*104*4,frompt
  2482. ; sub.l #10*104*4,midpt
  2483.  
  2484. * Subroom loop
  2485.  
  2486.  bsr DrawDisplay 
  2487.  
  2488.  bra nodrawp2
  2489.  
  2490. drawplayer2
  2491.  
  2492.  move.w #0,scaleval
  2493.  move.l PLR2_xoff,xoff
  2494.  move.l PLR2_yoff,yoff
  2495.  move.l PLR2_zoff,zoff
  2496.  move.w PLR2_angpos,angpos
  2497.  move.w PLR2_cosval,cosval
  2498.  move.w PLR2_sinval,sinval 
  2499.  
  2500.  
  2501.  
  2502.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2503.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2504.  move.l PLR2_Roompt,Roompt
  2505.  
  2506.  move.l #KeyMap,a5
  2507.  moveq #0,d5
  2508.  move.b look_behind_key,d5
  2509.  tst.b (a5,d5.w)
  2510.  beq.s .nolookback
  2511.  
  2512.  move.l PLR1_Obj,a0
  2513.  move.w #-1,12+128(a0)
  2514.  eor.w #4096,angpos 
  2515.  
  2516.  neg.w cosval
  2517.  neg.w sinval
  2518. .nolookback:
  2519.  
  2520.  bsr OrderZones
  2521.  jsr objmoveanim
  2522.  jsr EnergyBar
  2523.  jsr AmmoBar
  2524.  
  2525.  move.w WIDESCRN,d0
  2526.  
  2527.  move.w #0,leftclip
  2528.  move.w RIGHTX,rightclip
  2529.  move.w #0,deftopclip
  2530.  add.w d0,deftopclip
  2531.  move.w BOTTOMY,defbotclip
  2532.  sub.w d0,defbotclip
  2533.  move.w #0,topclip
  2534.  add.w d0,topclip
  2535.  move.w BOTTOMY,botclip
  2536.  sub.w d0,botclip
  2537.  
  2538.  bsr DrawDisplay
  2539.  
  2540. nodrawp2:
  2541.  
  2542. ***************************************** 
  2543. * Copy from copbuff to chip ram
  2544.  
  2545.  
  2546. ; move.l drawpt,a3
  2547. ; adda.w #10,a3
  2548. ; move.l COPSCRNBUFF,a2
  2549. ; move.w #2,d6
  2550. ; adda.w #10,a2
  2551. ;COPYOUT
  2552. ; move.w #31,d0
  2553. ;COPYDOWN1:
  2554. ; move.w #3,d1
  2555. ; move.l a2,a4
  2556. ; move.l a3,a5
  2557. ;.inlop1:
  2558. ;val SET 0
  2559. ; REPT 20
  2560. ; move.w val(a4),val(a5)
  2561. ;val SET val+104*4
  2562. ; ENDR
  2563. ; adda.l #104*4*20,a4
  2564. ; adda.l #104*4*20,a5
  2565. ; dbra d1,.inlop1
  2566. ; addq #4,a2
  2567. ; addq #4,a3
  2568. ; dbra d0,COPYDOWN1
  2569. ; addq #4,a2
  2570. ; addq #4,a3
  2571. ; dbra d6,COPYOUT 
  2572.  
  2573.  tst.b REALMAPON
  2574.  beq.s .nomap
  2575.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2576. .nomap
  2577.  
  2578.  move.w WIDESCRN,d7
  2579.  
  2580.  tst.b FULLSCR
  2581.  beq nobigconv
  2582.  
  2583.  move.l FASTBUFFER,a0
  2584. ; add.l #320*2*20,a0
  2585.  move.w d7,d6
  2586.  muls #320,d6
  2587.  add.l d6,a0
  2588.  move.l SCRNDRAWPT,a1
  2589.  move.w d7,d6
  2590.  muls #40,d6
  2591.  add.l d6,a1
  2592.  add.l #2,a1
  2593.  move.l #(288/8)-1,d0
  2594.  move.l #231,d1
  2595.  sub.w d7,d1
  2596.  sub.w d7,d1
  2597.  blt nochunk
  2598.  move.w #(320-288),d2
  2599.  move.w #4,d3
  2600.  
  2601.  bra donebigconv
  2602.  
  2603. nobigconv:
  2604.  
  2605.  move.l FASTBUFFER,a0
  2606.  move.w d7,d6
  2607.  muls #320,d6
  2608.  add.l d6,a0
  2609.  move.l SCRNDRAWPT,a1
  2610.  add.l #8+40*20,a1
  2611.  move.w d7,d6
  2612.  muls #40,d6
  2613.  add.l d6,a1
  2614.  move.l #(192/8)-1,d0
  2615.  move.l #159,d1
  2616.  sub.w d7,d1
  2617.  sub.w d7,d1
  2618.  blt nochunk
  2619.  move.w #(320-192),d2
  2620.  move.w #16,d3
  2621. donebigconv
  2622.  
  2623.  tst.b DOUBLEHEIGHT
  2624.  beq.s .nodoub
  2625.  asr.w #1,d1
  2626.  blt nochunk
  2627.  add.w #320,d2
  2628.  add.w #40,d3
  2629. .nodoub:
  2630.  
  2631.  move.b DOUBLEWIDTH,d4
  2632.  
  2633.  move.b PLR1_TELEPORTED,d5
  2634.  clr.b PLR1_TELEPORTED
  2635.  cmp.b #'s',mors
  2636.  bne.s .notplr2
  2637.  move.b PLR2_TELEPORTED,d5
  2638.  clr.b PLR2_TELEPORTED
  2639. .notplr2
  2640.  jsr CHUNKYTOPLANAR 
  2641.  
  2642. nochunk:
  2643.  
  2644.  move.l #KeyMap,a5
  2645.  tst.b $4a(a5)
  2646.  beq .nosmallscr
  2647.  
  2648.  move.l #0,d7
  2649.  move.l #0,d6
  2650.  tst.b FULLSCR
  2651.  bne.s .attop
  2652.  move.l #40*20,d7
  2653.  move.l #40*52,d6
  2654. .attop:
  2655.  
  2656.  move.w WIDESCRN,d0
  2657.  move.l SCRNDRAWPT,a0
  2658.  add.l d7,a0
  2659.  muls #40,d0
  2660.  add.l d0,a0
  2661.  bsr CLRTWOLINES
  2662.  move.w WIDESCRN,d0
  2663.  move.l SCRNSHOWPT,a0
  2664.  add.l d7,a0
  2665.  muls #40,d0
  2666.  add.l d0,a0
  2667.  bsr CLRTWOLINES
  2668.  
  2669.  add.w #2,WIDESCRN
  2670.  
  2671.  move.l SCRNDRAWPT,a0
  2672.  add.l #232*40,a0
  2673.  sub.l d6,a0
  2674.  move.w WIDESCRN,d0
  2675.  muls #40,d0
  2676.  sub.l d0,a0
  2677.  bsr CLRTWOLINES
  2678.  move.l SCRNSHOWPT,a0
  2679.  sub.l d6,a0
  2680.  add.l #232*40,a0
  2681.  move.w WIDESCRN,d0
  2682.  muls #40,d0
  2683.  sub.l d0,a0
  2684.  bsr CLRTWOLINES
  2685.  
  2686. .nosmallscr
  2687.  
  2688.  tst.b $5e(a5)
  2689.  beq.s .nobigscr
  2690.  tst.w WIDESCRN
  2691.  ble.s .nobigscr
  2692.  
  2693.  sub.w #2,WIDESCRN
  2694.  
  2695. .nobigscr
  2696.  
  2697.  
  2698.  tst.b (a5)
  2699.  beq.s .nosavescrn
  2700.  
  2701.  not.b USEDOUG
  2702.  
  2703.  jsr SAVETHESCREEN
  2704.  
  2705. .nosavescrn:
  2706.  
  2707.  tst.b $5b(a5)
  2708.  beq notdoubheight
  2709.  tst.b LASTDH
  2710.  bne notdoubheight2
  2711.  move.l SCRNSHOWPT,a0
  2712.  jsr WIPEDISPLAY
  2713.  move.l SCRNDRAWPT,a0
  2714.  jsr WIPEDISPLAY
  2715.  st LASTDH 
  2716.  
  2717.  move.w #0,d0
  2718.  move.w #0,d1
  2719.  
  2720.  not.b DOUBLEHEIGHT
  2721.  beq.s singlepixheight
  2722.  move.w #-40,d0
  2723.  move.w #40,d1
  2724.  
  2725. singlepixheight:
  2726.  
  2727.  move.l #SCRMODULOS,a0
  2728.  move.w #115,d2
  2729. putinmode:
  2730.  move.w d0,6(a0)
  2731.  move.w d0,6+4(a0)
  2732.  move.w d1,6+16(a0)
  2733.  move.w d1,6+16+4(a0)
  2734.  add.w #32,a0
  2735.  dbra d2,putinmode
  2736.  
  2737.  bra notdoubheight2
  2738.  
  2739. notdoubheight:
  2740.  clr.b LASTDH
  2741. notdoubheight2
  2742.  
  2743.  tst.b $5a(a5)
  2744.  beq.s notdoubwidth
  2745.  tst.b LASTDW
  2746.  bne notdoubwidth2
  2747.  move.l SCRNSHOWPT,a0
  2748.  jsr WIPEDISPLAY
  2749.  move.l SCRNDRAWPT,a0
  2750.  jsr WIPEDISPLAY
  2751.  st LASTDW
  2752.  not.b DOUBLEWIDTH
  2753.  bra.s notdoubwidth2
  2754.  
  2755. notdoubwidth:
  2756.  clr.b LASTDW
  2757. notdoubwidth2:
  2758.  
  2759. ***************************************** 
  2760.  move.l PLR2_Roompt,a0
  2761.  move.l #WorkSpace,a1
  2762.  clr.l (a1)
  2763.  clr.l 4(a1)
  2764.  clr.l 8(a1)
  2765.  clr.l 12(a1)
  2766.  clr.l 16(a1)
  2767.  clr.l 20(a1)
  2768.  clr.l 24(a1)
  2769.  clr.l 28(a1)
  2770.  
  2771.  cmp.b #'n',mors
  2772.  beq.s plr1only
  2773.  
  2774.  lea ToListOfGraph(a0),a0
  2775. .doallrooms:
  2776.  move.w (a0),d0
  2777.  blt.s .allroomsdone
  2778.  addq #8,a0
  2779.  move.w d0,d1
  2780.  asr.w #3,d0
  2781.  bset d1,(a1,d0.w)
  2782.  bra .doallrooms
  2783. .allroomsdone:
  2784.  
  2785. plr1only:
  2786.  
  2787.  move.l PLR1_Roompt,a0
  2788.  lea ToListOfGraph(a0),a0
  2789. .doallrooms2:
  2790.  move.w (a0),d0
  2791.  blt.s .allroomsdone2
  2792.  addq #8,a0
  2793.  move.w d0,d1
  2794.  asr.w #3,d0
  2795.  bset d1,(a1,d0.w)
  2796.  bra .doallrooms2
  2797. .allroomsdone2:
  2798.  
  2799.  move.l #%000001,d7
  2800.  lea TEAMWORK,a2
  2801.  move.l ObjectData,a0
  2802.  sub.w #64,a0
  2803. .doallobs:
  2804.  add.w #64,a0
  2805.  move.w (a0),d0
  2806.  blt.s .allobsdone
  2807.  move.w 12(a0),d0
  2808.  blt.s .doallobs
  2809.  move.w d0,d1
  2810.  asr.w #3,d0
  2811.  btst d1,(a1,d0.w)
  2812.  bne.s .worryobj
  2813.  move.b 16(a0),d0
  2814.  btst d0,d7
  2815.  beq.s .doallobs
  2816.  moveq #0,d0
  2817.  move.b teamnumber(a0),d0
  2818.  blt.s .doallobs
  2819.  asl.w #4,d0
  2820.  tst.w SEENBY(a2,d0.w)
  2821.  blt.s .doallobs
  2822. .worryobj:
  2823.  or.b #127,worry(a0)
  2824.  bra.s .doallobs
  2825. .allobsdone:
  2826.  
  2827.  
  2828.  
  2829. ; move.l #brightentab,a0
  2830. ; move.l frompt,a3
  2831. ; adda.w #(4*33)+(104*4*20),a3
  2832. ; move.w #20,d7
  2833. ; move.w #20,d6
  2834. ;horl:
  2835. ; move.w d6,d5
  2836. ; move.l a3,a1
  2837. ;vertl
  2838. ; move.w (a1),d0
  2839. ; move.w (a0,d0.w*2),(a1)
  2840. ; addq #4,a1
  2841. ; dbra d5,vertl
  2842. ; adda.w #104*4,a3
  2843. ; dbra d7,horl
  2844.  
  2845.  move.l #$dff000,a6
  2846.  
  2847. ; move.w #$300,col0(a6)
  2848.  
  2849.  move.l #KeyMap,a5
  2850.  tst.b $45(a5)
  2851.  beq.s noend
  2852.  
  2853.  cmp.b #'s',mors
  2854.  beq plr2quit 
  2855.  
  2856.  st MASTERQUITTING
  2857.  bra noend
  2858.  
  2859. plr2quit:
  2860.  st SLAVEQUITTING
  2861. noend:
  2862.  
  2863.  tst.b MASTERQUITTING
  2864.  beq.s .noquit
  2865.  tst.b SLAVEQUITTING
  2866.  beq.s .noquit
  2867.  jmp endnomusic
  2868. .noquit
  2869.  
  2870.  cmp.b #'n',mors
  2871.  bne.s noexit
  2872.  move.l PLR1_Roompt,a0
  2873.  move.w (a0),d0
  2874. ; move.w PLOPT,d1
  2875. ; move.l #ENDZONES,a0
  2876. ; cmp.w (a0,d1.w*2),d0
  2877.  
  2878.  cmp.w ENDZONE,d0
  2879.  
  2880. ; change this for quick exit, charlie
  2881. zzzz:
  2882. ; bra end
  2883.  
  2884.  bne.s noexit
  2885.  jmp end
  2886. noexit:
  2887.  
  2888. ; tst.w PLAYERONEHEALTH
  2889. ; bgt nnoend1
  2890. ; jmp end
  2891. ;nnoend1:
  2892. ; tst.w PLAYERTWOHEALTH
  2893. ; bgt nnoend2
  2894. ; jmp end
  2895. ;nnoend2:
  2896.  
  2897. ; move.l SwitchData,a0
  2898. ; tst.b 24+8(a0)
  2899. ; bne end
  2900.   
  2901. ; JSR STOPTIMER
  2902.  
  2903.  
  2904.  bra lop
  2905.  
  2906.  include "ab3:source_4000/ab3diipatchidr.s"
  2907.  
  2908. CLRTWOLINES:
  2909.  
  2910.  moveq #0,d1
  2911.  move.w #7,d2
  2912. .ccc
  2913.  move.l d1,2(a0)
  2914.  move.l d1,6(a0)
  2915.  move.l d1,10(a0)
  2916.  move.l d1,14(a0)
  2917.  move.l d1,18(a0)
  2918.  move.l d1,22(a0)
  2919.  move.l d1,26(a0)
  2920.  move.l d1,30(a0)
  2921.  move.l d1,34(a0)
  2922.  move.l d1,2+40(a0)
  2923.  move.l d1,6+40(a0)
  2924.  move.l d1,10+40(a0)
  2925.  move.l d1,14+40(a0)
  2926.  move.l d1,18+40(a0)
  2927.  move.l d1,22+40(a0)
  2928.  move.l d1,26+40(a0)
  2929.  move.l d1,30+40(a0)
  2930.  move.l d1,34+40(a0)
  2931.  add.l #10240,a0
  2932.  dbra d2,.ccc
  2933.  rts
  2934.  
  2935.  
  2936. LASTDH: dc.b 0
  2937. LASTDW: dc.b 0
  2938. WIDESCRN: dc.w 0
  2939. TRRANS: dc.w 0
  2940. DOANYWATER: dc.w 0
  2941.  
  2942. DoTheMapWotNastyCharlesIsForcingMeToDo:
  2943.  
  2944.  move.l #SHADINGTABLE,a4
  2945. ; add.w MAPBRIGHT,a4
  2946.  
  2947.  move.l #KeyMap,a5
  2948.  tst.b $50(a5)
  2949.  beq.s .nobrighter
  2950.  tst.w MAPBRIGHT
  2951.  beq.s .nobrighter
  2952.  
  2953.  sub.w #1,MAPBRIGHT
  2954.  
  2955. .nobrighter:
  2956.  
  2957.  tst.b $51(a5)
  2958.  beq.s .nodimmer
  2959.  cmp.w #7,MAPBRIGHT
  2960.  bge.s .nodimmer
  2961.  
  2962.  add.w #1,MAPBRIGHT
  2963.  
  2964. .nodimmer:
  2965.  
  2966.  move.l #Rotated,a1
  2967.  move.l #COMPACTMAP,a2
  2968.  move.l #BIGMAP-40,a3
  2969.  
  2970. preshow:
  2971.  add.w #40,a3
  2972.  
  2973. SHOWMAP:
  2974.  move.l (a2)+,d5
  2975.  move.l a2,d7
  2976.  cmp.l LASTZONE,d7
  2977.  bgt shownmap
  2978.  
  2979.  tst.l d5
  2980.  beq.s preshow
  2981.  
  2982.  move.w #9,d7
  2983. wallsofzone
  2984.  
  2985.  asr.l #1,d5
  2986.  bcs.s WALLSEEN
  2987.  
  2988.  asr.l #1,d5
  2989.  bcs.s WALLMAPPED
  2990.  
  2991.  asr.l #1,d5
  2992.  addq #4,a3
  2993.  bra.s DECIDEDWALL
  2994.  
  2995. WALLMAPPED:
  2996.  move.w #$b00,d4
  2997.  asr.l #1,d5
  2998.  bcc.s .notadoor
  2999.  move.w #$e00,d4
  3000. .notadoor
  3001.  
  3002.  st TRRANS
  3003.  
  3004.  bra.s DECIDEDCOLOUR
  3005.  
  3006. WALLSEEN:
  3007.  
  3008.  clr.b TRRANS
  3009.  
  3010.  move.w #255,d4
  3011.  asr.l #2,d5
  3012.  bcc.s .notadoor
  3013.  move.w #254,d4
  3014. .notadoor
  3015. DECIDEDCOLOUR:
  3016.  move.w (a3)+,d6
  3017.  move.l (a1,d6.w*8),d0
  3018.  asr.l #7,d0
  3019.  add.w mapxoff,d0
  3020.  move.w 6(a1,d6.w*8),d1
  3021.  add.w mapzoff,d1
  3022.  move.w (a3)+,d6
  3023.  move.l (a1,d6.w*8),d2
  3024.  asr.l #7,d2
  3025.  add.w mapxoff,d2
  3026.  move.w 6(a1,d6.w*8),d3
  3027.  add.w mapzoff,d3
  3028.  
  3029.  neg.w d1
  3030.  neg.w d3
  3031.  
  3032.  movem.l d7/d5,-(a7)
  3033.  bsr CLIPANDDRAW
  3034.  movem.l (a7)+,d7/d5
  3035.  
  3036. DECIDEDWALL:
  3037.  
  3038.  dbra d7,wallsofzone
  3039.  bra SHOWMAP
  3040.  
  3041. shownmap:
  3042.  
  3043.  clr.b TRRANS
  3044.  
  3045.  move.w mapxoff,d0
  3046.  move.w mapzoff,d1
  3047.  neg.w d1
  3048.  move.w d0,d2
  3049.  move.w d1,d3
  3050.  sub.w #128,d1
  3051.  add.w #128,d3
  3052.  move.w #250,d4
  3053.  bsr CLIPANDDRAW
  3054.  
  3055.  move.w mapxoff,d0
  3056.  move.w mapzoff,d1
  3057.  neg.w d1
  3058.  move.w d0,d2
  3059.  move.w d1,d3
  3060.  sub.w #128,d1
  3061.  sub.w #32,d3
  3062.  sub.w #64,d2
  3063.  move.w #250,d4
  3064.  bsr CLIPANDDRAW
  3065.  
  3066.  move.w mapxoff,d0
  3067.  move.w mapzoff,d1
  3068.  neg.w d1
  3069.  move.w d0,d2
  3070.  move.w d1,d3
  3071.  sub.w #128,d1
  3072.  sub.w #32,d3
  3073.  add.w #64,d2
  3074.  move.w #250,d4
  3075.  bsr CLIPANDDRAW
  3076.  rts
  3077.  
  3078.  
  3079. CLIPANDDRAW:
  3080.  
  3081.  tst.b FULLSCR
  3082.  beq.s .nodov
  3083.  
  3084.  add.w d0,d0
  3085.  add.w d2,d2
  3086.  ext.l d0
  3087.  ext.l d2
  3088.  divs #3,d0
  3089.  divs #3,d2
  3090.  
  3091. .nodov:
  3092.  
  3093.  move.w MAPBRIGHT,d5
  3094.  asr.w d5,d0
  3095.  asr.w d5,d1
  3096.  asr.w d5,d2
  3097.  asr.w d5,d3
  3098.  
  3099. NOSCALING:
  3100.  add.w #96,d0
  3101.  bge p1xpos
  3102.  
  3103.  add.w #96,d2
  3104.  blt OFFSCREEN
  3105.  
  3106. x1nx2p:
  3107.  
  3108.  move.w d3,d5
  3109.  sub.w d1,d5
  3110.  move.w d2,d6
  3111.  sub.w d0,d6
  3112.  beq OFFSCREEN
  3113.  
  3114.  muls d0,d5
  3115.  divs d6,d5
  3116.  sub.w d5,d1
  3117.  move.w #0,d0
  3118.  
  3119.  bra doneleftclip
  3120.  
  3121. p1xpos:
  3122.  
  3123.  add.w #96,d2
  3124.  bge doneleftclip
  3125.  
  3126.  move.w d1,d5
  3127.  sub.w d3,d5
  3128.  move.w d0,d6
  3129.  sub.w d2,d6
  3130.  beq OFFSCREEN
  3131.  
  3132.  muls d2,d5
  3133.  divs d6,d5
  3134.  sub.w d5,d3
  3135.  move.w #0,d2
  3136.  
  3137. doneleftclip:
  3138.  
  3139.  cmp.w #191,d0
  3140.  ble p1xneg
  3141.  
  3142.  cmp.w #191,d2
  3143.  bgt OFFSCREEN
  3144.  
  3145.  move.w d0,d6
  3146.  sub.w d2,d6
  3147.  beq OFFSCREEN
  3148.  sub.w #191,d0
  3149.  move.w d3,d5
  3150.  sub.w d1,d5
  3151.  
  3152.  muls d5,d0
  3153.  divs d6,d0
  3154.  add.w d0,d1
  3155.  move.w #191,d0
  3156.  
  3157.  bra donerightclip
  3158.  
  3159. p1xneg:
  3160.  
  3161.  cmp.w #191,d2
  3162.  ble donerightclip
  3163.  
  3164.  move.w d2,d6
  3165.  sub.w d0,d6
  3166.  beq OFFSCREEN
  3167.  sub.w #191,d2
  3168.  move.w d1,d5
  3169.  sub.w d3,d5
  3170.  
  3171.  muls d5,d2
  3172.  divs d6,d2
  3173.  add.w d2,d3
  3174.  move.w #191,d2
  3175.  
  3176. donerightclip:
  3177.  
  3178. *********************************
  3179.  
  3180.  add.w #80,d1
  3181.  bge p1ypos
  3182.  
  3183.  add.w #80,d3
  3184.  blt OFFSCREEN
  3185.  
  3186.  move.w d2,d5
  3187.  sub.w d0,d5
  3188.  move.w d3,d6
  3189.  sub.w d1,d6
  3190.  beq OFFSCREEN
  3191.  
  3192.  muls d1,d5
  3193.  divs d6,d5
  3194.  sub.w d5,d0
  3195.  move.w #0,d1
  3196.  
  3197.  bra donetopclip
  3198.  
  3199. p1ypos:
  3200.  
  3201.  add.w #80,d3
  3202.  bge donetopclip
  3203.  
  3204.  move.w d0,d5
  3205.  sub.w d2,d5
  3206.  move.w d1,d6
  3207.  sub.w d3,d6
  3208.  beq OFFSCREEN
  3209.  
  3210.  muls d3,d5
  3211.  divs d6,d5
  3212.  sub.w d5,d2
  3213.  move.w #0,d3
  3214.  
  3215. donetopclip:
  3216.  
  3217.  cmp.w #159,d1
  3218.  ble p1yneg
  3219.  
  3220.  cmp.w #159,d3
  3221.  bgt OFFSCREEN
  3222.  
  3223.  move.w d1,d6
  3224.  sub.w d3,d6
  3225.  beq OFFSCREEN
  3226.  sub.w #159,d1
  3227.  move.w d2,d5
  3228.  sub.w d0,d5
  3229.  
  3230.  muls d5,d1
  3231.  divs d6,d1
  3232.  add.w d1,d0
  3233.  move.w #159,d1
  3234.  
  3235.  bra donebotclip
  3236.  
  3237. p1yneg:
  3238.  
  3239.  cmp.w #159,d3
  3240.  ble donebotclip
  3241.  
  3242.  move.w d3,d6
  3243.  sub.w d1,d6
  3244.  beq OFFSCREEN
  3245.  sub.w #159,d3
  3246.  move.w d0,d5
  3247.  sub.w d2,d5
  3248.  
  3249.  muls d5,d3
  3250.  divs d6,d3
  3251.  add.w d3,d2
  3252.  move.w #159,d3
  3253.  
  3254. donebotclip:
  3255.  
  3256.  tst.b TRRANS
  3257.  bne DRAWAtransLINE
  3258.  bra DRAWAMAPLINE
  3259.  
  3260. OFFSCREEN:
  3261. NOLINEtrans:
  3262.  rts
  3263.  
  3264. MAPBRIGHT:
  3265.  dc.w 3
  3266. mapxoff: dc.w 0
  3267. mapzoff: dc.w 0
  3268.  
  3269. DRAWAtransLINE:
  3270.  
  3271.  move.l FASTBUFFER,a0    ; screen to render to.
  3272.  
  3273.  tst.b FULLSCR
  3274.  beq.s .nooffset
  3275.   
  3276.  add.l #(320*40)+(48*2),a0
  3277.   
  3278. .nooffset:
  3279.  
  3280.  cmp.w d1,d3
  3281.  bgt.s .okdown
  3282.  bne.s .aline
  3283.  cmp.w d0,d2
  3284.  beq.s NOLINEtrans 
  3285. .aline
  3286.  exg d0,d2
  3287.  exg d1,d3
  3288. .okdown
  3289.  
  3290.  move.w d1,d5
  3291.  muls #320,d5
  3292.  add.l d5,a0
  3293.  lea (a0,d0.w*2),a0
  3294.  
  3295.  sub.w d1,d3
  3296.  
  3297.  sub.w d0,d2
  3298.  bge.s downrighttrans
  3299.  
  3300. downlefttrans:
  3301.  neg.w d2
  3302.  cmp.w d2,d3
  3303.  bgt.s downmorelefttrans
  3304.  
  3305. downleftmoretrans:
  3306.  move.w #320,d6
  3307.  move.w d2,d0
  3308.  move.w d2,d7
  3309.  
  3310. .linelop:
  3311.  move.b (a0),d4
  3312.  move.b (a4,d4.w*2),(a0)
  3313.  subq #1,a0
  3314.  sub.w d3,d0
  3315.  bgt.s .noextra
  3316.  add.w d2,d0
  3317.  add.w d6,a0
  3318. .noextra:
  3319.  dbra d7,.linelop
  3320.  rts
  3321.  
  3322. downmorelefttrans:
  3323.  move.w #320,d6
  3324.  move.w d3,d0
  3325.  move.w d3,d7
  3326.  
  3327. .linelop:
  3328.  move.b (a0),d4
  3329.  move.b (a4,d4.w*2),(a0)
  3330.  add.w d6,a0
  3331.  sub.w d2,d0
  3332.  bgt.s .noextra
  3333.  add.w d3,d0
  3334.  subq #1,a0
  3335. .noextra:
  3336.  dbra d7,.linelop
  3337.  
  3338.  rts
  3339.  
  3340. downrighttrans:
  3341.  
  3342.  cmp.w d2,d3
  3343.  bgt.s downmorerighttrans
  3344.  
  3345. downrightmoretrans:
  3346.  move.w #320,d6
  3347.  move.w d2,d0
  3348.  move.w d2,d7
  3349.  
  3350. .linelop:
  3351.  move.b (a0),d4
  3352.  move.b (a4,d4.w*2),(a0)+
  3353.  sub.w d3,d0
  3354.  bgt.s .noextra
  3355.  add.w d2,d0
  3356.  add.w d6,a0
  3357. .noextra:
  3358.  dbra d7,.linelop
  3359.  
  3360.  rts
  3361.  
  3362. downmorerighttrans:
  3363.  move.w #320,d6
  3364.  move.w d3,d0
  3365.  move.w d3,d7
  3366.  
  3367. .linelop:
  3368.  move.b (a0),d4
  3369.  move.b (a4,d4.w*2),(a0)
  3370.  add.w d6,a0
  3371.  sub.w d2,d0
  3372.  bgt.s .noextra
  3373.  add.w d3,d0
  3374.  addq #1,a0
  3375. .noextra:
  3376.  dbra d7,.linelop
  3377.  
  3378.  rts
  3379.  
  3380. NOLINE:
  3381.  rts
  3382.  
  3383. DRAWAMAPLINE:
  3384.  
  3385.  
  3386.  move.l FASTBUFFER,a0    ; screen to render to.
  3387.  cmp.w d1,d3
  3388.  bgt.s .okdown
  3389.  bne.s .aline
  3390.  cmp.w d0,d2
  3391.  beq.s NOLINE 
  3392. .aline
  3393.  exg d0,d2
  3394.  exg d1,d3
  3395. .okdown
  3396.  
  3397.  move.w d1,d5
  3398.  muls #320,d5
  3399.  add.l d5,a0
  3400.  lea (a0,d0.w),a0
  3401.  
  3402.  sub.w d1,d3
  3403.  
  3404.  sub.w d0,d2
  3405.  bge.s downright
  3406.  
  3407. downleft:
  3408.  neg.w d2
  3409.  cmp.w d2,d3
  3410.  bgt.s downmoreleft
  3411.  
  3412. downleftmore:
  3413.  move.w #320,d6
  3414.  move.w d2,d0
  3415.  move.w d2,d7
  3416.  addq #1,a0
  3417.  
  3418. .linelop:
  3419.  move.b d4,-(a0)
  3420.  sub.w d3,d0
  3421.  bgt.s .noextra
  3422.  add.w d2,d0
  3423.  add.w d6,a0
  3424. .noextra:
  3425.  dbra d7,.linelop
  3426.  rts
  3427.  
  3428. downmoreleft:
  3429.  move.w #320,d6
  3430.  move.w d3,d0
  3431.  move.w d3,d7
  3432.  
  3433. .linelop:
  3434.  move.b d4,(a0)
  3435.  add.w d6,a0
  3436.  sub.w d2,d0
  3437.  bgt.s .noextra
  3438.  add.w d3,d0
  3439.  subq #1,a0
  3440. .noextra:
  3441.  dbra d7,.linelop
  3442.  
  3443.  rts
  3444.  
  3445. downright:
  3446.  
  3447.  cmp.w d2,d3
  3448.  bgt.s downmoreright
  3449.  
  3450. downrightmore:
  3451.  move.w #320,d6
  3452.  move.w d2,d0
  3453.  move.w d2,d7
  3454.  
  3455. .linelop:
  3456.  move.b d4,(a0)+
  3457.  sub.w d3,d0
  3458.  bgt.s .noextra
  3459.  add.w d2,d0
  3460.  add.w d6,a0
  3461. .noextra:
  3462.  dbra d7,.linelop
  3463.  
  3464.  rts
  3465.  
  3466. downmoreright:
  3467.  move.w #320,d6
  3468.  move.w d3,d0
  3469.  move.w d3,d7
  3470.  
  3471. .linelop:
  3472.  move.b d4,(a0)
  3473.  add.w d6,a0
  3474.  sub.w d2,d0
  3475.  bgt.s .noextra
  3476.  add.w d3,d0
  3477.  addq #1,a0
  3478. .noextra:
  3479.  dbra d7,.linelop
  3480.  
  3481.  rts
  3482.  
  3483. SAVETHESCREEN:
  3484.  
  3485.  move.l old,$dff080
  3486.  move.w #$8020,$dff000+intena
  3487.  
  3488.  move.l _IntuitionBase,a6
  3489.  jsr _LVORethinkDisplay(a6)
  3490.  
  3491.  move.l doslib,a6
  3492.  move.l #SAVENAME,d1
  3493.  move.l #1006,d2
  3494.  jsr -30(a6)
  3495.  move.l d0,handle
  3496.  
  3497.  move.l doslib,a6
  3498.  move.l #mt_init,d2
  3499.  move.l handle,d1
  3500.  move.l #10240*8,d3
  3501.  jsr _LVOWrite(a6)
  3502.  
  3503.  move.l doslib,a6
  3504.  move.l handle,d1
  3505.  jsr -36(a6)
  3506.  
  3507.  move.l doslib,a6
  3508.  move.l #200,d1
  3509.  jsr -198(a6) 
  3510.  
  3511.  move.w #$0020,$dff000+intena
  3512.  move.l #bigfield,$dff080
  3513.  
  3514.  add.b #1,SAVELETTER
  3515.  
  3516.  rts
  3517.  
  3518. SAVENAME: dc.b 'work:rawscrn'
  3519. SAVELETTER: dc.b 'd',0
  3520.  
  3521.  even
  3522.  
  3523.  include "ab3:source_4000/CHUNKY.s"
  3524.  
  3525.  
  3526. MASTERQUITTING: dc.b 0
  3527. SLAVEQUITTING: dc.b 0
  3528. MASTERPAUSE: dc.b 0
  3529. SLAVEPAUSE: dc.b 0
  3530.  
  3531. PAUSEOPTS:
  3532.  include "ab3:source_4000/pauseopts"
  3533.  
  3534. ENDZONE: dc.w 0
  3535.  
  3536. ENDZONES:
  3537. ; LEVEL 1
  3538.  dc.w -1
  3539. ; dc.w 55
  3540. ; LEVEL 2
  3541.  dc.w 149
  3542. ; LEVEL 3
  3543.  dc.w 155
  3544. ; LEVEL 4
  3545.  dc.w 107
  3546. ; LEVEL 5
  3547.  dc.w 67
  3548. ; LEVEL 6
  3549.  dc.w 132
  3550. ; LEVEL 7
  3551.  dc.w 203
  3552. ; LEVEL 8
  3553.  dc.w 166
  3554. ; LEVEL 9
  3555.  dc.w 118
  3556. ; LEVEL 10
  3557.  dc.w 102
  3558. ; LEVEL 11
  3559.  dc.w 103
  3560. ; LEVEL 12
  3561.  dc.w 2
  3562. ; LEVEL 13
  3563.  dc.w 98
  3564. ; LEVEL 14
  3565.  dc.w 0
  3566. ; LEVEL 15
  3567.  dc.w 148
  3568. ; LEVEL 16
  3569.  dc.w 103
  3570.  
  3571. ***************************************************************************
  3572. ***************************************************************************
  3573. ****************** End of Main Loop here ********************************** 
  3574. ***************************************************************************
  3575. ***************************************************************************
  3576.  
  3577. putinsmallscr:
  3578.  
  3579.  rts
  3580.  
  3581.  move.l #$1fe0000,statskip
  3582.  move.l #$1fe0000,statskip+4
  3583.  
  3584.  move.l #healthpal,a5
  3585. ; move.l COPSCRN1,a0
  3586. ; move.l COPSCRN2,a2
  3587.  move.w #scrheight-1,d0
  3588.  move.l #0,d6
  3589.  move.w #0,d3
  3590.  move.w #$2bdf,startwait
  3591.  move.w #$2d01,endwait
  3592. .fillcop
  3593.  move.w #$180,d1
  3594.  
  3595.  move.l a0,a1
  3596.  move.l a2,a3
  3597.  move.w #$10c,(a1)+
  3598.  move.w #$10c,(a3)+
  3599.  move.w d3,(a1)+
  3600.  move.w d3,(a3)+
  3601.  eor.w #$8000,d3
  3602.  
  3603.  move.w #$106,(a1)+
  3604.  move.w #$106,(a3)+
  3605.  move.w #$2c42,d5
  3606.  or.w d3,d5
  3607.  and.w #$fffe,d5
  3608.  move.w d5,(a1)+
  3609.  move.w d5,(a3)+
  3610.  bsr do32
  3611.  
  3612.  move.w #$106,(a1)+
  3613.  move.w #$106,(a3)+
  3614.  move.w #$4c42,d5
  3615.  or.w d3,d5
  3616.  and.w #$fffe,d5
  3617.  move.w d5,(a1)+
  3618.  move.w d5,(a3)+
  3619.  bsr do32
  3620.  
  3621.  move.w #$106,(a1)+
  3622.  move.w #$106,(a3)+
  3623.  move.w #$6c42,d5
  3624.  or.w d3,d5
  3625.  and.w #$fffe,d5
  3626.  move.w d5,(a1)+
  3627.  move.w d5,(a3)+
  3628.  bsr do32
  3629.  
  3630.  
  3631.  move.l #$1060c42,(a1)+
  3632.  move.l #$1060c42,(a3)+
  3633.  move.w #$19e,(a1)+
  3634.  move.w (a5),(a1)+
  3635.  move.w #$19e,(a3)+
  3636.  move.w (a5)+,(a3)+
  3637.  
  3638. **********************************
  3639.  
  3640.  adda.w #104*4,a0
  3641.  adda.w #104*4,a2
  3642.  dbra d0,.fillcop
  3643.  
  3644.  move.w #$48,fetchstart
  3645.  move.w #$88,fetchstop
  3646.  move.w #$2cb1,winstart
  3647.  move.w #$2c91,winstop
  3648.  move.w #-24,modulo
  3649.  move.w #-24,modulo+4
  3650.  
  3651.  move.l #nullspr,d0
  3652.  move.w d0,s4l
  3653.  move.w d0,s5l
  3654.  move.w d0,s6l
  3655.  move.w d0,s7l
  3656.  swap d0
  3657.  move.w d0,s4h
  3658.  move.w d0,s5h
  3659.  move.w d0,s6h
  3660.  move.w d0,s7h 
  3661.  
  3662. ; move.l #borders,d0
  3663. ; move.w d0,s0l
  3664. ; swap d0
  3665. ; move.w d0,s0h
  3666. ; move.l #borders+2592,d0
  3667. ; move.w d0,s1l
  3668. ; swap d0
  3669. ; move.w d0,s1h
  3670. ; move.l #borders+2592*2,d0
  3671. ; move.w d0,s2l
  3672. ; swap d0
  3673. ; move.w d0,s2h
  3674. ; move.l #borders+2592*3,d0
  3675. ; move.w d0,s3l
  3676. ; swap d0
  3677. ; move.w d0,s3h
  3678.  
  3679.  
  3680.  move.l scrn,a0
  3681.  add.l #40,a0
  3682.  move.l scrn,a1
  3683.  add.l #160,a1
  3684.  move.l scrn,a2
  3685.  add.l #280,a2
  3686.  move.l #smallscrntab,a3
  3687.  move.w #191,d7    ; counter
  3688.  move.w #0,d1    ; xpos
  3689. .plotscrnloop:
  3690.  move.b (a3)+,d0
  3691.  move.w d1,d2
  3692.  asr.w #3,d2
  3693.  move.b d1,d3
  3694.  not.b d3
  3695.  bclr.b d3,-40(a0,d2.w)
  3696.  bclr.b d3,(a0,d2.w)
  3697.  bclr.b d3,40(a0,d2.w)
  3698.  bclr.b d3,-40(a1,d2.w)
  3699.  bclr.b d3,(a1,d2.w)
  3700.  bclr.b d3,40(a1,d2.w)
  3701.  bclr.b d3,-40(a2,d2.w)
  3702.  btst #0,d0
  3703.  beq.s .nobp1
  3704.  bset.b d3,-40(a0,d2.w)
  3705. .nobp1:
  3706.  btst #1,d0
  3707.  beq.s .nobp2
  3708.  bset.b d3,(a0,d2.w)
  3709. .nobp2:
  3710.  btst #2,d0
  3711.  beq.s .nobp3
  3712.  bset.b d3,40(a0,d2.w)
  3713. .nobp3:
  3714.  btst #3,d0
  3715.  beq.s .nobp4
  3716.  bset.b d3,-40(a1,d2.w)
  3717. .nobp4:
  3718.  btst #4,d0
  3719.  beq.s .nobp5
  3720.  bset.b d3,(a1,d2.w)
  3721. .nobp5:
  3722.  btst #5,d0
  3723.  beq.s .nobp6
  3724.  bset.b d3,40(a1,d2.w)
  3725. .nobp6:
  3726.  btst #6,d0
  3727.  beq.s .nobp7
  3728.  bset.b d3,-40(a2,d2.w)
  3729. .nobp7:
  3730.  
  3731.  addq #1,d1
  3732.  
  3733.  dbra d7,.plotscrnloop
  3734.  
  3735.  
  3736.  rts
  3737.  
  3738. putinlargescr:
  3739.  
  3740.  move.l #$1000000,statskip
  3741.  move.l #$fffffffe,statskip+4
  3742.  
  3743.  move.l #healthpal,a5
  3744. ; move.l COPSCRN1,a0
  3745. ; move.l COPSCRN2,a2
  3746.  move.w #scrheight-1,d0
  3747.  move.l #0,d6
  3748.  move.w #0,d3
  3749.  move.w #$29df,startwait
  3750.  move.w #$2b01,endwait
  3751. .fillcop
  3752.  move.w #$180,d1
  3753.  
  3754.  move.l a0,a1
  3755.  move.l a2,a3
  3756.  move.w #$10c,(a1)+
  3757.  move.w #$10c,(a3)+
  3758.  move.w d3,(a1)+
  3759.  move.w d3,(a3)+
  3760.  eor.w #$8000,d3
  3761.  
  3762.  move.w #$106,(a1)+
  3763.  move.w #$106,(a3)+
  3764.  move.w #$2c42,d5
  3765.  or.w d3,d5
  3766.  and.w #$fffe,d5
  3767.  move.w d5,(a1)+
  3768.  move.w d5,(a3)+
  3769.  bsr do32
  3770.  
  3771.  move.w #$106,(a1)+
  3772.  move.w #$106,(a3)+
  3773.  move.w #$4c42,d5
  3774.  or.w d3,d5
  3775.  and.w #$fffe,d5
  3776.  move.w d5,(a1)+
  3777.  move.w d5,(a3)+
  3778.  bsr do32
  3779.  
  3780.  move.w #$106,(a1)+
  3781.  move.w #$106,(a3)+
  3782.  move.w #$6c42,d5
  3783.  or.w d3,d5
  3784.  and.w #$fffe,d5
  3785.  move.w d5,(a1)+
  3786.  move.w d5,(a3)+
  3787.  bsr do32
  3788.  
  3789.  move.w startwait,(a1)+
  3790.  move.w #$fffe,(a1)+
  3791.  move.w endwait,(a1)+
  3792.  move.w #$ff00,(a1)+
  3793.  move.w startwait,(a3)+
  3794.  move.w #$fffe,(a3)+
  3795.  move.w endwait,(a3)+
  3796.  move.w #$ff00,(a3)+
  3797.  
  3798. ; move.l $1fe0000,(a1)+
  3799. ; move.l $1fe0000,(a3)+
  3800. ; move.l $1fe0000,(a1)+
  3801. ; move.l $1fe0000,(a3)+
  3802.  
  3803.  
  3804.  add.w #$300,startwait
  3805.  add.w #$300,endwait
  3806.  
  3807. ; move.l #$1060c42,(a1)+
  3808. ; move.l #$1060c42,(a3)+
  3809. ; move.w #$19e,(a1)+
  3810. ; move.w (a5),(a1)+
  3811. ; move.w #$19e,(a3)+
  3812. ; move.w (a5)+,(a3)+
  3813.  
  3814. **********************************
  3815.  
  3816.  adda.w #104*4,a0
  3817.  adda.w #104*4,a2
  3818.  dbra d0,.fillcop
  3819.  
  3820.  move.w #$38,fetchstart
  3821.  move.w #$b8,fetchstop
  3822.  move.w #$2c81,winstart
  3823.  move.w #$2cc1,winstop
  3824.  move.w #-40,modulo
  3825.  move.w #-40,modulo+4
  3826.  
  3827.  move.l #nullspr,d0
  3828.  move.w d0,s0l
  3829.  move.w d0,s1l
  3830.  move.w d0,s2l
  3831.  move.w d0,s3l
  3832.  move.w d0,s4l
  3833.  move.w d0,s5l
  3834.  move.w d0,s6l
  3835.  move.w d0,s7l
  3836.  swap d0
  3837.  move.w d0,s0h
  3838.  move.w d0,s1h
  3839.  move.w d0,s2h
  3840.  move.w d0,s3h
  3841.  move.w d0,s4h
  3842.  move.w d0,s5h
  3843.  move.w d0,s6h
  3844.  move.w d0,s7h 
  3845.  
  3846.  move.l scrn,a0
  3847.  move.l a0,a1
  3848.  move.l a0,a2
  3849.  add.l #40,a0
  3850.  add.l #160,a1
  3851.  add.l #280,a2
  3852.  move.l #scrntab,a3
  3853.  move.w #319,d7    ; counter
  3854.  move.w #0,d1    ; xpos
  3855. .plotscrnloop:
  3856.  move.b (a3)+,d0
  3857.  move.w d1,d2
  3858.  asr.w #3,d2
  3859.  move.b d1,d3
  3860.  not.b d3
  3861.  bclr.b d3,-40(a0,d2.w)
  3862.  bclr.b d3,(a0,d2.w)
  3863.  bclr.b d3,40(a0,d2.w)
  3864.  bclr.b d3,-40(a1,d2.w)
  3865.  bclr.b d3,(a1,d2.w)
  3866.  bclr.b d3,40(a1,d2.w)
  3867.  bclr.b d3,-40(a2,d2.w)
  3868.  btst #0,d0
  3869.  beq.s .nobp1
  3870.  bset.b d3,-40(a0,d2.w)
  3871. .nobp1:
  3872.  btst #1,d0
  3873.  beq.s .nobp2
  3874.  bset.b d3,(a0,d2.w)
  3875. .nobp2:
  3876.  btst #2,d0
  3877.  beq.s .nobp3
  3878.  bset.b d3,40(a0,d2.w)
  3879. .nobp3:
  3880.  btst #3,d0
  3881.  beq.s .nobp4
  3882.  bset.b d3,-40(a1,d2.w)
  3883. .nobp4:
  3884.  btst #4,d0
  3885.  beq.s .nobp5
  3886.  bset.b d3,(a1,d2.w)
  3887. .nobp5:
  3888.  btst #5,d0
  3889.  beq.s .nobp6
  3890.  bset.b d3,40(a1,d2.w)
  3891. .nobp6:
  3892.  btst #6,d0
  3893.  beq.s .nobp7
  3894.  bset.b d3,-40(a2,d2.w)
  3895. .nobp7:
  3896.  
  3897.  addq #1,d1
  3898.  
  3899.  dbra d7,.plotscrnloop
  3900.  
  3901.  rts
  3902.  
  3903. CLEARKEYBOARD:
  3904.  move.l #KeyMap,a5
  3905.  moveq #0,d0
  3906.  move.w #15,d1
  3907. clrloo:
  3908.  move.l d0,(a5)+
  3909.  move.l d0,(a5)+
  3910.  move.l d0,(a5)+
  3911.  move.l d0,(a5)+
  3912.  dbra d1,clrloo
  3913.  rts
  3914.  
  3915. READCONTROLS: dc.w 0
  3916.  
  3917. tstststst: dc.w 0
  3918.  
  3919. BollocksRoom:
  3920.  dc.w -1
  3921.  ds.l 50
  3922.  
  3923. GUNYOFFS:
  3924.  dc.w 20
  3925.  dc.w 20
  3926.  dc.w 0
  3927.  dc.w 20
  3928.  dc.w 20
  3929.  dc.w 0
  3930.  dc.w 0
  3931.  dc.w 20
  3932.  
  3933. PLR1_BOBBLEY: dc.l 0
  3934. PLR2_BOBBLEY: dc.l 0
  3935.  
  3936. USEPLR1:
  3937.  
  3938. ***********************************
  3939.  
  3940.  move.l PLR1_Obj,a0 
  3941.  move.b #4,16(a0)
  3942.  move.l ObjectPoints,a1
  3943.  move.l #ObjRotated,a2
  3944.  move.w (a0),d0
  3945.  move.l PLR1_xoff,(a1,d0.w*8)
  3946.  move.l PLR1_zoff,4(a1,d0.w*8)
  3947.  move.l PLR1_Roompt,a1
  3948.  
  3949.  moveq #0,d2
  3950.  move.b damagetaken(a0),d2
  3951.  beq .notbeenshot
  3952.  
  3953.  move.w ImpactX(a0),d3
  3954.  add.w d3,PLR1s_xspdval
  3955.  move.w ImpactZ(a0),d3
  3956.  add.w d3,PLR1s_zspdval
  3957.  move.w ImpactY(a0),d3
  3958.  ext.l d3
  3959.  asl.l #8,d3
  3960.  add.l d3,PLR1s_yvel
  3961.  
  3962.  move.w #0,ImpactX(a0)
  3963.  move.w #0,ImpactY(a0)
  3964.  move.w #0,ImpactZ(a0)
  3965.  
  3966.  jsr GetRand
  3967.  muls d2,d0
  3968.  asr.l #8,d0
  3969.  asr.l #4,d0
  3970.  add.w d0,PLR1s_angspd
  3971.  
  3972.  move.l #7*2116,hitcol
  3973.  sub.w d2,PLAYERONEHEALTH
  3974.  movem.l d0-d7/a0-a6,-(a7)
  3975.  move.b #$fb,IDNUM
  3976.  move.w #19,Samplenum
  3977.  clr.b notifplaying
  3978.  move.w #0,Noisex
  3979.  move.w #0,Noisez
  3980.  move.w #100,Noisevol
  3981.  jsr MakeSomeNoise
  3982.  
  3983.  movem.l (a7)+,d0-d7/a0-a6
  3984.  
  3985. .notbeenshot
  3986.  move.b #0,damagetaken(a0)
  3987.  move.b #10,numlives(a0)
  3988.  
  3989.  move.w p1_angpos,Facing(a0)
  3990.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3991.  
  3992.  move.w (a1),12(a0)
  3993.  move.w (a1),d2
  3994.  move.l #ZoneBrightTable,a1
  3995.  move.l (a1,d2.w*4),d2
  3996.  tst.b PLR1_StoodInTop
  3997.  bne.s .okinbott
  3998.  swap d2
  3999. .okinbott:
  4000.  
  4001.  move.w d2,2(a0)
  4002.  
  4003.  
  4004.  move.l p1_yoff,d0
  4005.  move.l p1_height,d1
  4006.  asr.l #1,d1
  4007.  add.l d1,d0
  4008.  asr.l #7,d0
  4009.  move.w d0,4(a0)
  4010.  
  4011. ***********************************
  4012.  
  4013.  move.l PLR2_Obj,a0 
  4014.  move.b #5,16(a0)
  4015.  
  4016.  move.w p2_angpos,d0
  4017.  and.w #8190,d0
  4018.  move.w d0,Facing(a0)
  4019. ; 
  4020. ; jsr ViewpointToDraw
  4021. ; asl.w #2,d0
  4022. ; moveq #0,d1
  4023. ; move.b p2_bobble,d1
  4024. ; not.b d1
  4025. ; lsr.b #3,d1
  4026. ; and.b #$3,d1
  4027. ; add.w d1,d0
  4028. ; move.w d0,10(a0)
  4029. ; move.w #10,8(a0)
  4030. ; 
  4031.  
  4032.  move.l ObjectPoints,a1
  4033.  move.l #ObjRotated,a2
  4034.  move.w (a0),d0
  4035.  move.l PLR2_xoff,(a1,d0.w*8)
  4036.  move.l PLR2_zoff,4(a1,d0.w*8)
  4037.  move.l PLR2_Roompt,a1
  4038.  
  4039.  moveq #0,d2
  4040.  move.b damagetaken(a0),d2
  4041.  beq .notbeenshot2
  4042.  move.w ImpactX(a0),d3
  4043.  add.w d3,PLR2s_xspdval
  4044.  move.w ImpactZ(a0),d3
  4045.  add.w d3,PLR2s_zspdval
  4046.  move.w ImpactY(a0),d3
  4047.  ext.l d3
  4048.  asl.l #8,d3
  4049.  add.l d3,PLR2s_yvel
  4050.  
  4051.  move.w #0,ImpactX(a0)
  4052.  move.w #0,ImpactY(a0)
  4053.  move.w #0,ImpactZ(a0)
  4054.  
  4055.  sub.w d2,PLAYERTWOHEALTH
  4056. .notbeenshot2
  4057.  move.b #0,damagetaken(a0)
  4058.  move.b #10,numlives(a0)
  4059.  
  4060.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4061.  
  4062.  move.w (a1),12(a0)
  4063.  move.w (a1),d2
  4064.  move.l #ZoneBrightTable,a1
  4065.  move.l (a1,d2.w*4),d2
  4066.  tst.b PLR2_StoodInTop
  4067.  bne.s .okinbott2
  4068.  swap d2
  4069. .okinbott2:
  4070.  
  4071.  move.w d2,2(a0)
  4072.  
  4073.  move.l p2_yoff,d0
  4074.  move.l p2_height,d1
  4075.  asr.l #1,d1
  4076.  add.l d1,d0
  4077.  asr.l #7,d0
  4078.  move.w d0,4(a0)
  4079.  
  4080.  jsr ViewpointToDraw
  4081.  add.l d0,d0
  4082.  
  4083.  move.l LINKFILE,a6
  4084.  add.l #PLR2ALIEN,a6
  4085.  move.w (a6),d7
  4086.  move.w d7,d1
  4087.  
  4088.  move.l LINKFILE,a6
  4089.  add.l #AlienStats,a6
  4090.  muls #AlienStatLen,d1
  4091.  add.l d1,a6
  4092.  move.b A_GFXType+1(a6),VECOBJ
  4093.  cmp.w #1,A_GFXType(a6)
  4094.  bne.s .NOSIDES2
  4095.  
  4096.  moveq #0,d0
  4097.  
  4098. .NOSIDES2:
  4099.  
  4100.  move.l LINKFILE,a6
  4101.  
  4102.  add.l #AlienAnimData,a6
  4103.  
  4104.  move.w d7,d1
  4105.  muls #A_AnimLen,d1
  4106.  add.l d1,a6
  4107.  
  4108. ; move.l ANIMPOINTER,a6
  4109.  
  4110.  muls #A_OptLen,d0
  4111.  add.w d0,a6
  4112.  
  4113.  move.w SecTimer(a0),d1
  4114.  move.w d1,d2
  4115.  muls #A_FrameLen,d1
  4116.  
  4117.  addq #1,d2
  4118.  
  4119.  move.w d2,d3
  4120.  muls #A_FrameLen,d3
  4121.  tst.b (a6,d3.w)
  4122.  bge.s .noendanim
  4123.  move.w #0,d2
  4124. .noendanim
  4125.  move.w d2,SecTimer(a0)
  4126.  
  4127.  move.w d2,d1
  4128.  
  4129.  muls #A_FrameLen,d1
  4130.  
  4131.  move.l #0,8(a0)
  4132.  move.b (a6,d1.w),9(a0)
  4133.  move.b 1(a6,d1.w),d0
  4134.  ext.w d0
  4135.  bgt.s .noflip
  4136.  move.b #128,10(a0)
  4137.  neg.w d0
  4138. .noflip:
  4139.  sub.w #1,d0
  4140.  move.b d0,11(a0)
  4141.  
  4142.  move.w #-1,6(a0)
  4143.  cmp.b #1,VECOBJ
  4144.  beq.s .nosize
  4145.  bgt.s .setlight
  4146.  move.w 2(a6,d1.w),6(a0)
  4147.  bra.s .ddone
  4148.  
  4149. .nosize
  4150.  
  4151. ; move.l #$00090001,8(a0)
  4152.  
  4153.  bra.s .ddone
  4154.  
  4155. .setlight:
  4156.  move.w 2(a6,d1.w),6(a0)
  4157.  
  4158.  move.b VECOBJ,d1
  4159.  or.b d1,10(a0)
  4160.  
  4161. .ddone:
  4162.  
  4163.  
  4164. **********************************
  4165.  
  4166.  move.l PLR1_Obj,a0
  4167.  
  4168.  ifeq CHEESEY
  4169.  
  4170.  tst.w PLAYERONEHEALTH
  4171.  bgt.s .notdead
  4172.  
  4173.  move.w #-1,12+128(a0)
  4174.  rts
  4175.  
  4176. .notdead: 
  4177.  
  4178.  move.l PLR1_Roompt,a1
  4179.  
  4180.  move.w Facing(a0),d0
  4181.  add.w #4096,d0
  4182.  and.w #8190,d0
  4183.  move.w d0,Facing+128(a0)
  4184.  
  4185.  move.w (a1),12+128(a0)
  4186.  move.w (a1),GraphicRoom+128(a0)
  4187.  
  4188.  moveq #0,d0
  4189.  move.b p1_gunselected,d0
  4190.  
  4191.  move.l LINKFILE,a1
  4192.  add.l #GunObjects,a1
  4193.  move.w (a1,d0.w*2),d0
  4194.  
  4195.  move.b d0,TypeOfThing+128(a0)
  4196.  move.b #1,128+16(a0)
  4197.  
  4198.  move.w (a0),d0
  4199.  move.w 128(a0),d1
  4200.  move.l ObjectPoints,a1
  4201.  move.l (a1,d0.w*8),(a1,d1.w*8)
  4202.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  4203.  
  4204.  st WhichAnim+128(a0)
  4205.  
  4206.  move.l p1_yoff,d0
  4207.  move.l p1_height,d1
  4208.  asr.l #2,d1
  4209.  add.l #10*128,d1
  4210.  add.l d1,d0
  4211.  asr.l #7,d0
  4212.  move.w d0,4+128(a0)
  4213.  move.l PLR1_BOBBLEY,d1
  4214.  asr.l #8,d1
  4215.  move.l d1,d0
  4216.  asr.l #1,d0
  4217.  add.l d0,d1
  4218.  add.w d1,4+128(a0)
  4219.  
  4220.  move.b ObjInTop(a0),ObjInTop+128(a0)
  4221.  
  4222.  endc
  4223.  
  4224.  ifne CHEESEY
  4225.  move.w #-1,12+128(a0)
  4226.  endc
  4227.  
  4228.  rts
  4229.  
  4230. ***************************************************
  4231. **************************************************
  4232.  
  4233. USEPLR2:
  4234.  
  4235. ***********************************
  4236.  
  4237.  move.l PLR2_Obj,a0 
  4238.  move.b #5,16(a0)
  4239.  move.l ObjectPoints,a1
  4240.  move.l #ObjRotated,a2
  4241.  move.w (a0),d0
  4242.  move.l PLR2_xoff,(a1,d0.w*8)
  4243.  move.l PLR2_zoff,4(a1,d0.w*8)
  4244.  move.l PLR2_Roompt,a1
  4245.  
  4246.  moveq #0,d2
  4247.  move.b damagetaken(a0),d2
  4248.  beq .notbeenshot
  4249.  
  4250.  move.w ImpactX(a0),d3
  4251.  add.w d3,PLR2s_xspdval
  4252.  move.w ImpactZ(a0),d3
  4253.  add.w d3,PLR2s_zspdval
  4254.  
  4255.  
  4256.  
  4257.  move.l #7*2116,hitcol
  4258.  sub.w d2,PLAYERTWOHEALTH
  4259.  movem.l d0-d7/a0-a6,-(a7)
  4260.  move.w #19,Samplenum
  4261.  clr.b notifplaying
  4262.  move.b #$fb,IDNUM
  4263.  move.w #0,Noisex
  4264.  move.w #0,Noisez
  4265.  move.w #100,Noisevol
  4266.  jsr MakeSomeNoise
  4267.  
  4268.  movem.l (a7)+,d0-d7/a0-a6
  4269.  
  4270. .notbeenshot
  4271.  move.b #0,damagetaken(a0)
  4272.  move.b #10,numlives(a0)
  4273.  
  4274.  move.w p2_angpos,Facing(a0)
  4275.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4276.  
  4277.  move.w (a1),12(a0)
  4278.  move.w (a1),d2
  4279.  move.l #ZoneBrightTable,a1
  4280.  move.l (a1,d2.w*4),d2
  4281.  tst.b PLR2_StoodInTop
  4282.  bne.s .okinbott
  4283.  swap d2
  4284. .okinbott:
  4285.  
  4286.  move.w d2,2(a0)
  4287.  
  4288.  move.l PLR2_yoff,d0
  4289.  move.l p2_height,d1
  4290.  asr.l #1,d1
  4291.  add.l d1,d0
  4292.  asr.l #7,d0
  4293.  move.w d0,4(a0)
  4294.  
  4295. ***********************************
  4296.  
  4297.  move.l PLR1_Obj,a0 
  4298.  move.b #4,16(a0)
  4299.  
  4300.  move.w PLR1_angpos,d0
  4301.  and.w #8190,d0
  4302.  move.w d0,Facing(a0)
  4303. ; 
  4304. ; jsr ViewpointToDraw
  4305. ; asl.w #2,d0
  4306. ; moveq #0,d1
  4307. ; move.b p2_bobble,d1
  4308. ; not.b d1
  4309. ; lsr.b #3,d1
  4310. ; and.b #$3,d1
  4311. ; add.w d1,d0
  4312. ; move.w d0,10(a0)
  4313. ; move.w #10,8(a0)
  4314. ; 
  4315.  
  4316.  move.l ObjectPoints,a1
  4317.  move.l #ObjRotated,a2
  4318.  move.w (a0),d0
  4319.  move.l PLR1_xoff,(a1,d0.w*8)
  4320.  move.l PLR1_zoff,4(a1,d0.w*8)
  4321.  move.l PLR1_Roompt,a1
  4322.  
  4323.  moveq #0,d2
  4324.  move.b damagetaken(a0),d2
  4325.  beq .notbeenshot2
  4326.  
  4327.  move.w ImpactX(a0),d3
  4328.  add.w d3,PLR1s_xspdval
  4329.  move.w ImpactZ(a0),d3
  4330.  add.w d3,PLR1s_zspdval
  4331.  
  4332.  sub.w d2,PLAYERONEHEALTH
  4333. .notbeenshot2
  4334.  move.b #0,damagetaken(a0)
  4335.  move.b #10,numlives(a0)
  4336.  
  4337.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4338.  
  4339.  move.w (a1),12(a0)
  4340.  move.w (a1),d2
  4341.  move.l #ZoneBrightTable,a1
  4342.  move.l (a1,d2.w*4),d2
  4343.  tst.b PLR1_StoodInTop
  4344.  bne.s .okinbott2
  4345.  swap d2
  4346. .okinbott2:
  4347.  
  4348.  move.w d2,2(a0)
  4349.  
  4350.  move.l p1_yoff,d0
  4351.  move.l p1_height,d1
  4352.  asr.l #1,d1
  4353.  add.l d1,d0
  4354.  asr.l #7,d0
  4355.  move.w d0,4(a0)
  4356.  
  4357.  jsr ViewpointToDraw
  4358.  add.l d0,d0
  4359.  
  4360.  move.l LINKFILE,a6
  4361.  add.l #PLR1ALIEN,a6
  4362.  move.w (a6),d7
  4363.  move.w d7,d1
  4364.  
  4365.  move.l LINKFILE,a6
  4366.  add.l #AlienStats,a6
  4367.  muls #AlienStatLen,d1
  4368.  add.l d1,a6
  4369.  move.b A_GFXType+1(a6),VECOBJ
  4370.  cmp.w #1,A_GFXType(a6)
  4371.  bne.s .NOSIDES2
  4372.  
  4373.  moveq #0,d0
  4374.  
  4375. .NOSIDES2:
  4376.  
  4377.  move.l LINKFILE,a6
  4378.  
  4379.  add.l #AlienAnimData,a6
  4380.  
  4381.  move.w d7,d1
  4382.  muls #A_AnimLen,d1
  4383.  add.l d1,a6
  4384.  
  4385. ; move.l ANIMPOINTER,a6
  4386.  
  4387.  muls #A_OptLen,d0
  4388.  add.w d0,a6
  4389.  
  4390.  move.w SecTimer(a0),d1
  4391.  move.w d1,d2
  4392.  muls #A_FrameLen,d1
  4393.  
  4394.  addq #1,d2
  4395.  
  4396.  move.w d2,d3
  4397.  muls #A_FrameLen,d3
  4398.  tst.b (a6,d3.w)
  4399.  bge.s .noendanim
  4400.  move.w #0,d2
  4401. .noendanim
  4402.  move.w d2,SecTimer(a0)
  4403.  
  4404.  move.w d2,d1
  4405.  
  4406.  muls #A_FrameLen,d1
  4407.  
  4408.  move.l #0,8(a0)
  4409.  move.b (a6,d1.w),9(a0)
  4410.  move.b 1(a6,d1.w),d0
  4411.  ext.w d0
  4412.  bgt.s .noflip
  4413.  move.b #128,10(a0)
  4414.  neg.w d0
  4415. .noflip:
  4416.  sub.w #1,d0
  4417.  move.b d0,11(a0)
  4418.  
  4419.  move.w #-1,6(a0)
  4420.  cmp.b #1,VECOBJ
  4421.  beq.s .nosize
  4422.  bgt.s .setlight
  4423.  move.w 2(a6,d1.w),6(a0)
  4424.  bra.s .ddone
  4425.  
  4426. .nosize
  4427.  
  4428. ; move.l #$00090001,8(a0)
  4429.  
  4430.  bra.s .ddone
  4431.  
  4432. .setlight:
  4433.  move.w 2(a6,d1.w),6(a0)
  4434.  
  4435.  move.b VECOBJ,d1
  4436.  or.b d1,10(a0)
  4437.  
  4438. .ddone:
  4439.  
  4440. **********************************
  4441.  
  4442.  move.l PLR2_Obj,a0
  4443.  
  4444.  ifeq CHEESEY
  4445.  
  4446.  tst.w PLAYERTWOHEALTH
  4447.  bgt.s .notdead
  4448.  
  4449.  move.w #-1,12+64(a0)
  4450.  rts
  4451.  
  4452. .notdead: 
  4453.  move.l PLR2_Roompt,a1
  4454.  
  4455.  move.w Facing(a0),d0
  4456.  add.w #4096,d0
  4457.  and.w #8190,d0
  4458.  move.w d0,Facing+64(a0)
  4459.  
  4460.  move.w (a1),12+64(a0)
  4461.  move.w (a1),GraphicRoom+64(a0)
  4462.  
  4463.  moveq #0,d0
  4464.  move.b p2_gunselected,d0
  4465.  
  4466.  move.l LINKFILE,a1
  4467.  add.l #GunObjects,a1
  4468.  move.w (a1,d0.w*2),d0
  4469.  
  4470.  move.b d0,TypeOfThing+64(a0)
  4471.  move.b #1,64+16(a0)
  4472.  
  4473.  move.w (a0),d0
  4474.  move.w 64(a0),d1
  4475.  move.l ObjectPoints,a1
  4476.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  4477.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  4478.  
  4479.  st WhichAnim+64(a0)
  4480.  
  4481.  move.l p2_yoff,d0
  4482.  move.l p2_height,d1
  4483.  asr.l #2,d1
  4484.  add.l #10*128,d1
  4485.  add.l d1,d0
  4486.  asr.l #7,d0
  4487.  move.w d0,4+64(a0)
  4488.  move.l PLR2_BOBBLEY,d1
  4489.  asr.l #8,d1
  4490.  move.l d1,d0
  4491.  asr.l #1,d0
  4492.  add.l d0,d1
  4493.  add.w d1,4+64(a0)
  4494.  
  4495.  move.b ObjInTop(a0),ObjInTop+64(a0)
  4496.  
  4497.  endc
  4498.  
  4499.  ifne CHEESEY
  4500.  
  4501.  move.w #-1,12+64(a0)
  4502.  endc
  4503.  
  4504.  rts
  4505.  
  4506.  
  4507.  
  4508. GunSelected: dc.b 0
  4509.  even
  4510.  
  4511.  
  4512. GunData: dc.l 0
  4513.  
  4514.  
  4515. protA: dc.w 0
  4516.  
  4517. Path:
  4518. ; incbin "testpath"
  4519. endpath:
  4520. pathpt: dc.l Path
  4521.  
  4522.  
  4523. PLR1KEYS: dc.b 0
  4524. PLR1PATH: dc.b 0
  4525. PLR1MOUSE: dc.b -1
  4526. PLR1JOY: dc.b 0
  4527. PLR2KEYS: dc.b 0
  4528. PLR2PATH: dc.b 0
  4529. PLR2MOUSE: dc.b -1
  4530. PLR2JOY: dc.b 0
  4531.  
  4532.  even
  4533.  
  4534. PLR1_bobble: dc.w 0
  4535. PLR2_bobble: dc.w 0
  4536. xwobble: dc.l 0
  4537. xwobxoff: dc.w 0
  4538.  
  4539. xwobzoff: dc.w 0
  4540.  
  4541. PLR1_Control:
  4542.  
  4543. ; Take a snapshot of everything.
  4544.  
  4545.  move.l PLR1_xoff,d2
  4546.  move.l d2,PLR1_oldxoff
  4547.  move.l d2,oldx
  4548.  move.l PLR1_zoff,d3
  4549.  move.l d3,PLR1_oldzoff
  4550.  move.l d3,oldz
  4551.  move.l p1_xoff,d0
  4552.  move.l d0,PLR1_xoff
  4553.  move.l d0,newx
  4554.  move.l p1_zoff,d1
  4555.  move.l d1,newz
  4556.  move.l d1,PLR1_zoff
  4557.  
  4558.  move.l p1_height,PLR1_height
  4559.  
  4560.  sub.l d2,d0
  4561.  sub.l d3,d1
  4562.  move.l d0,xdiff
  4563.  move.l d1,zdiff
  4564.  move.w p1_angpos,d0
  4565.  move.w d0,PLR1_angpos
  4566.  
  4567.  move.l #SineTable,a1
  4568.  move.w (a1,d0.w),PLR1_sinval
  4569.  add.w #2048,d0
  4570.  and.w #8190,d0
  4571.  move.w (a1,d0.w),PLR1_cosval
  4572.  
  4573.  move.l p1_yoff,d0
  4574.  move.w p1_bobble,d1
  4575.  move.w (a1,d1.w),d1
  4576.  move.w d1,d3
  4577.  ble.s .notnegative
  4578.  neg.w d1
  4579. .notnegative:
  4580.  add.w #16384,d1
  4581.  asr.w #4,d1
  4582.  
  4583.  tst.b PLR1_Ducked
  4584.  bne.s .notdouble
  4585.  add.w d1,d1
  4586. .notdouble
  4587.  ext.l d1
  4588.  
  4589.  move.l d1,PLR1_BOBBLEY
  4590.  
  4591.  move.l PLR1_height,d4
  4592.  sub.l d1,d4
  4593.  add.l d1,d0
  4594.  
  4595.  cmp.b #'s',mors
  4596.  beq.s .otherwob
  4597.  asr.w #6,d3
  4598.  ext.l d3
  4599.  move.l d3,xwobble
  4600.  move.w PLR1_sinval,d1
  4601.  muls d3,d1
  4602.  move.w PLR1_cosval,d2
  4603.  muls d3,d2
  4604.  swap d1
  4605.  swap d2
  4606.  asr.w #7,d1
  4607.  move.w d1,xwobxoff
  4608.  asr.w #7,d2
  4609.  neg.w d2
  4610.  move.w d2,xwobzoff
  4611. .otherwob
  4612.  
  4613.  move.l d0,PLR1_yoff
  4614.  move.l d0,newy
  4615.  move.l d0,oldy
  4616.  
  4617.  move.l d4,thingheight
  4618.  move.l #40*256,StepUpVal
  4619.  tst.b PLR1_Ducked
  4620.  beq.s .okbigstep
  4621.  move.l #10*256,StepUpVal
  4622. .okbigstep:
  4623.  
  4624.  move.l #$1000000,StepDownVal
  4625.  
  4626.  move.l PLR1_Roompt,a0
  4627.  move.w ToTelZone(a0),d0
  4628.  blt .noteleport
  4629.  
  4630.  move.w ToTelX(a0),newx
  4631.  move.w ToTelZ(a0),newz
  4632.  move.w #-1,CollId
  4633.  move.l #%111111111111111111,CollideFlags
  4634.  bsr Collision
  4635.  tst.b hitwall
  4636.  beq.s .teleport
  4637.  
  4638.  move.w PLR1_xoff,newx
  4639.  move.w PLR1_zoff,newz
  4640.  bra .noteleport
  4641.  
  4642. .teleport:
  4643.  
  4644.  st PLR1_TELEPORTED
  4645.  
  4646.  move.l PLR1_Roompt,a0
  4647.  move.w ToTelZone(a0),d0
  4648.  move.w ToTelX(a0),PLR1_xoff
  4649.  move.w ToTelZ(a0),PLR1_zoff
  4650.  move.l PLR1_yoff,d1
  4651.  sub.l ToZoneFloor(a0),d1
  4652.  move.l ZoneAdds,a0
  4653.  move.l (a0,d0.w*4),a0
  4654.  add.l LEVELDATA,a0
  4655.  move.l a0,PLR1_Roompt
  4656.  add.l ToZoneFloor(a0),d1
  4657.  move.l d1,PLR1s_yoff
  4658.  move.l d1,PLR1_yoff
  4659.  move.l d1,PLR1s_tyoff
  4660.  move.l PLR1_xoff,PLR1s_xoff
  4661.  move.l PLR1_zoff,PLR1s_zoff
  4662.  
  4663.  SAVEREGS
  4664.  move.w #0,Noisex
  4665.  move.w #0,Noisez
  4666.  move.w #26,Samplenum
  4667.  move.w #100,Noisevol
  4668.  move.b #$fa,IDNUM
  4669.  jsr MakeSomeNoise
  4670.  GETREGS
  4671.  
  4672.  bra .cantmove
  4673.  
  4674. .noteleport:
  4675.  
  4676.  move.l PLR1_Roompt,objroom
  4677.  move.w #%100000000,wallflags
  4678.  move.b PLR1_StoodInTop,StoodInTop
  4679.  
  4680.  move.l #%1011111110111000011,CollideFlags
  4681.  move.w #-1,CollId
  4682.  
  4683.  bsr Collision
  4684.  tst.b hitwall
  4685.  beq.s .nothitanything
  4686.  move.w oldx,PLR1_xoff
  4687.  move.w oldz,PLR1_zoff
  4688.  move.l PLR1_xoff,PLR1s_xoff
  4689.  move.l PLR1_zoff,PLR1s_zoff
  4690.  bra .cantmove
  4691. .nothitanything:
  4692.  
  4693.  move.w #40,extlen
  4694.  move.b #0,awayfromwall
  4695.  
  4696.  clr.b exitfirst
  4697.  clr.b wallbounce
  4698.  bsr MoveObject
  4699.  move.b StoodInTop,PLR1_StoodInTop
  4700.  move.l objroom,PLR1_Roompt
  4701.  move.w newx,PLR1_xoff
  4702.  move.w newz,PLR1_zoff
  4703.  move.l PLR1_xoff,PLR1s_xoff
  4704.  move.l PLR1_zoff,PLR1s_zoff
  4705.  
  4706. .cantmove:
  4707.  
  4708.  move.l PLR1_Roompt,a0
  4709.  
  4710.  move.l ToZoneFloor(a0),d0
  4711.  tst.b PLR1_StoodInTop
  4712.  beq.s notintop
  4713.  move.l ToUpperFloor(a0),d0
  4714. notintop:
  4715.  
  4716.  adda.w #ToZonePts,a0
  4717.  sub.l PLR1_height,d0
  4718.  move.l d0,PLR1s_tyoff
  4719.  move.w p1_angpos,tmpangpos
  4720.  
  4721. ; move.l (a0),a0        ; jump to viewpoint list
  4722.  * A0 is pointing at a pointer to list of points to rotate
  4723.  move.w (a0)+,d1
  4724.  ext.l d1
  4725.  add.l PLR1_Roompt,d1
  4726.  move.l d1,PLR1_PointsToRotatePtr
  4727.  tst.w (a0)+
  4728.  sne.s DRAWNGRAPHTOP
  4729.  beq.s nobackgraphics
  4730.  cmp.b #'s',mors
  4731.  beq.s nobackgraphics
  4732.  move.l a0,-(a7)
  4733.  jsr putinbackdrop 
  4734.  move.l (a7)+,a0
  4735. nobackgraphics:
  4736.  adda.w #10,a0
  4737.  move.l a0,PLR1_ListOfGraphRooms
  4738.  
  4739. *************************************************
  4740.  rts
  4741.  
  4742. DRAWNGRAPHTOP
  4743.  dc.w 0 
  4744. tstzone: dc.l 0
  4745. CollId: dc.w 0
  4746.  
  4747. PLR2_Control:
  4748.  
  4749. ; Take a snapshot of everything.
  4750.  
  4751.  move.l PLR2_xoff,d2
  4752.  move.l d2,PLR2_oldxoff
  4753.  move.l d2,oldx
  4754.  move.l PLR2_zoff,d3
  4755.  move.l d3,PLR2_oldzoff
  4756.  move.l d3,oldz
  4757.  move.l p2_xoff,d0
  4758.  move.l d0,PLR2_xoff
  4759.  move.l d0,newx
  4760.  move.l p2_zoff,d1
  4761.  move.l d1,newz
  4762.  move.l d1,PLR2_zoff
  4763.  
  4764.  move.l p2_height,PLR2_height
  4765.  
  4766.  sub.l d2,d0
  4767.  sub.l d3,d1
  4768.  move.l d0,xdiff
  4769.  move.l d1,zdiff
  4770.  move.w p2_angpos,d0
  4771.  move.w d0,PLR2_angpos
  4772.  
  4773.  move.l #SineTable,a1
  4774.  move.w (a1,d0.w),PLR2_sinval
  4775.  add.w #2048,d0
  4776.  and.w #8190,d0
  4777.  move.w (a1,d0.w),PLR2_cosval
  4778.  
  4779.  move.l p2_yoff,d0
  4780.  move.w p2_bobble,d1
  4781.  move.w (a1,d1.w),d1
  4782.  move.w d1,d3
  4783.  ble.s .notnegative
  4784.  neg.w d1
  4785. .notnegative:
  4786.  add.w #16384,d1
  4787.  asr.w #4,d1
  4788.  
  4789.  tst.b PLR2_Ducked
  4790.  bne.s .notdouble
  4791.  add.w d1,d1
  4792. .notdouble
  4793.  ext.l d1
  4794.  
  4795.  move.l d1,PLR2_BOBBLEY
  4796.  
  4797.  move.l PLR2_height,d4
  4798.  sub.l d1,d4
  4799.  add.l d1,d0
  4800.  
  4801.  cmp.b #'s',mors
  4802.  bne.s .otherwob
  4803.  asr.w #6,d3
  4804.  ext.l d3
  4805.  move.l d3,xwobble
  4806.  move.w PLR2_sinval,d1
  4807.  muls d3,d1
  4808.  move.w PLR2_cosval,d2
  4809.  muls d3,d2
  4810.  swap d1
  4811.  swap d2
  4812.  asr.w #7,d1
  4813.  move.w d1,xwobxoff
  4814.  asr.w #7,d2
  4815.  neg.w d2
  4816.  move.w d2,xwobzoff
  4817. .otherwob
  4818.  
  4819.  move.l d0,PLR2_yoff
  4820.  move.l d0,newy
  4821.  move.l d0,oldy
  4822.  
  4823.  move.l d4,thingheight
  4824.  move.l #40*256,StepUpVal
  4825.  tst.b PLR2_Ducked
  4826.  beq.s .okbigstep
  4827.  move.l #10*256,StepUpVal
  4828. .okbigstep:
  4829.  
  4830.  move.l #$1000000,StepDownVal
  4831.  
  4832.  move.l PLR2_Roompt,a0
  4833.  move.w ToTelZone(a0),d0
  4834.  blt .noteleport
  4835.  
  4836.  move.w ToTelX(a0),newx
  4837.  move.w ToTelZ(a0),newz
  4838.  move.w #-1,CollId
  4839.  move.l #%111111111111111111,CollideFlags
  4840.  bsr Collision
  4841.  tst.b hitwall
  4842.  beq.s .teleport
  4843.  
  4844.  move.w PLR2_xoff,newx
  4845.  move.w PLR2_zoff,newz
  4846.  bra .noteleport
  4847.  
  4848. .teleport:
  4849.  
  4850.  st PLR2_TELEPORTED
  4851.  
  4852.  move.l PLR2_Roompt,a0
  4853.  move.w ToTelZone(a0),d0
  4854.  move.w ToTelX(a0),PLR2_xoff
  4855.  move.w ToTelZ(a0),PLR2_zoff
  4856.  move.l PLR2_yoff,d1
  4857.  sub.l ToZoneFloor(a0),d1
  4858.  move.l ZoneAdds,a0
  4859.  move.l (a0,d0.w*4),a0
  4860.  add.l LEVELDATA,a0
  4861.  move.l a0,PLR2_Roompt
  4862.  add.l ToZoneFloor(a0),d1
  4863.  move.l d1,PLR2s_yoff
  4864.  move.l d1,PLR2_yoff
  4865.  move.l d1,PLR2s_tyoff
  4866.  move.l PLR2_xoff,PLR2s_xoff
  4867.  move.l PLR2_zoff,PLR2s_zoff
  4868.  
  4869.  SAVEREGS
  4870.  move.w #0,Noisex
  4871.  move.w #0,Noisez
  4872.  move.w #26,Samplenum
  4873.  move.w #100,Noisevol
  4874.  move.b #$fa,IDNUM
  4875.  jsr MakeSomeNoise
  4876.  GETREGS
  4877.  
  4878.  bra .cantmove
  4879.  
  4880. .noteleport:
  4881.  
  4882.  move.l PLR2_Roompt,objroom
  4883.  move.w #%100000000000,wallflags
  4884.  move.b PLR2_StoodInTop,StoodInTop
  4885.  
  4886.  move.l #%1011111010111100011,CollideFlags
  4887.  move.w #-1,CollId
  4888.  
  4889.  bsr Collision
  4890.  tst.b hitwall
  4891.  beq.s .nothitanything
  4892.  move.w oldx,PLR2_xoff
  4893.  move.w oldz,PLR2_zoff
  4894.  move.l PLR2_xoff,PLR2s_xoff
  4895.  move.l PLR2_zoff,PLR2s_zoff
  4896.  bra .cantmove
  4897. .nothitanything:
  4898.  
  4899.  move.w #40,extlen
  4900.  move.b #0,awayfromwall
  4901.  
  4902.  clr.b exitfirst
  4903.  clr.b wallbounce
  4904.  bsr MoveObject
  4905.  move.b StoodInTop,PLR2_StoodInTop
  4906.  move.l objroom,PLR2_Roompt
  4907.  move.w newx,PLR2_xoff
  4908.  move.w newz,PLR2_zoff
  4909.  move.l PLR2_xoff,PLR2s_xoff
  4910.  move.l PLR2_zoff,PLR2s_zoff
  4911.  
  4912. .cantmove
  4913.  
  4914.  move.l PLR2_Roompt,a0
  4915.  
  4916.  move.l ToZoneFloor(a0),d0
  4917.  tst.b PLR2_StoodInTop
  4918.  beq.s .notintop
  4919.  move.l ToUpperFloor(a0),d0
  4920. .notintop:
  4921.  
  4922.  adda.w #ToZonePts,a0
  4923.  sub.l PLR2_height,d0
  4924.  move.l d0,PLR2s_tyoff
  4925.  move.w p2_angpos,tmpangpos
  4926.  
  4927. ; move.l (a0),a0        ; jump to viewpoint list
  4928.  * A0 is pointing at a pointer to list of points to rotate
  4929.  move.w (a0)+,d1
  4930.  ext.l d1
  4931.  add.l PLR2_Roompt,d1
  4932.  move.l d1,PLR2_PointsToRotatePtr
  4933.  tst.w (a0)+
  4934.  sne.s DRAWNGRAPHTOP
  4935.  beq.s .nobackgraphics
  4936.  cmp.b #'s',mors
  4937.  bne.s .nobackgraphics
  4938.  move.l a0,-(a7)
  4939.  jsr putinbackdrop 
  4940.  move.l (a7)+,a0
  4941. .nobackgraphics:
  4942.  adda.w #10,a0
  4943.  move.l a0,PLR2_ListOfGraphRooms
  4944.  
  4945. *****************************************************
  4946.  rts
  4947.  
  4948.  
  4949. KeyMap: ds.b 256
  4950.  
  4951. fillscrnwater:
  4952.  dc.w 0
  4953. DONTDOGUN:
  4954.  dc.w 0
  4955.  
  4956. ;temptemp: ds.l 200
  4957. ;temptempptr: dc.l 0
  4958.  
  4959. DrawDisplay:
  4960.  
  4961. ; move.l #temptemp,temptempptr
  4962.  
  4963.  clr.b fillscrnwater
  4964.  
  4965.  move.l #SineTable,a0
  4966.  move.w angpos,d0
  4967.  move.w (a0,d0.w),d6
  4968.  adda.w #2048,a0
  4969.  move.w (a0,d0.w),d7
  4970.  move.w d6,sinval
  4971.  move.w d7,cosval
  4972.  
  4973.  move.l yoff,d0
  4974.  asr.l #8,d0
  4975.  move.w d0,d1
  4976.  add.w #256-32,d1
  4977.  and.w #255,d1
  4978.  move.w d1,wallyoff
  4979.  move.l yoff,d0
  4980.  asr.l #6,d0
  4981.  move.w d0,flooryoff
  4982.  
  4983.  move.w xoff,d6
  4984.  move.w d6,d3
  4985.  asr.w #1,d3
  4986.  add.w d3,d6
  4987.  asr.w #1,d6
  4988.  move.w d6,xoff34
  4989.  
  4990.  move.w zoff,d6
  4991.  move.w d6,d3
  4992.  asr.w #1,d3
  4993.  add.w d3,d6
  4994.  asr.w #1,d6
  4995.  move.w d6,zoff34
  4996.  
  4997.  bsr RotateLevelPts
  4998.  bsr RotateObjectPts
  4999.  bsr CalcPLR1InLine
  5000.  
  5001.  
  5002.  cmp.b #'n',mors
  5003.  bne.s doplr2too
  5004.  move.l PLR2_Obj,a0
  5005.  move.w #-1,12(a0)
  5006.  move.w #-1,GraphicRoom(a0)
  5007.  bra noplr2either
  5008.  
  5009. doplr2too:
  5010.  bsr CalcPLR2InLine
  5011. noplr2either:
  5012.  
  5013.  move.l endoflist,a0
  5014. ; move.w #-1,(a0)
  5015.  
  5016. ; move.l #FinalOrder,a0
  5017.  
  5018.  
  5019. subroomloop:
  5020. ; move.w (a0)+,d7
  5021.  move.w -(a0),d7
  5022.  blt jumpoutofrooms
  5023.  
  5024. ; bsr setlrclip
  5025. ; move.w leftclip,d0
  5026. ; cmp.w rightclip,d0
  5027. ; bge subroomloop
  5028.  move.l a0,-(a7)
  5029.  
  5030.  move.l ZoneAdds,a0
  5031.  move.l (a0,d7.w*4),a0
  5032.  add.l LEVELDATA,a0
  5033.  move.l ToZoneRoof(a0),SplitHeight
  5034.  move.l a0,ROOMBACK
  5035.  
  5036.  move.l ZoneGraphAdds,a0
  5037.  move.l 4(a0,d7.w*8),a2
  5038.  move.l (a0,d7.w*8),a0
  5039.  
  5040.  add.l LEVELGRAPHICS,a0
  5041.  add.l LEVELGRAPHICS,a2
  5042.  move.l a2,ThisRoomToDraw+4
  5043.  move.l a0,ThisRoomToDraw
  5044.  
  5045.  move.l ListOfGraphRooms,a1
  5046.  
  5047.  
  5048.  
  5049. finditit:
  5050.  tst.w (a1)
  5051.  blt nomoretodoatall
  5052.  cmp.w (a1),d7
  5053.  beq outoffind
  5054.  adda.w #8,a1
  5055.  bra finditit
  5056.  
  5057. outoffind:
  5058.  
  5059.  move.l a1,-(a7)
  5060.  
  5061.  
  5062.  move.w #0,leftclip
  5063.  move.w RIGHTX,rightclip
  5064.  moveq #0,d7
  5065.  move.w 2(a1),d7
  5066.  blt.s outofrcliplop
  5067.  move.l LEVELCLIPS,a0
  5068.  lea (a0,d7.l*2),a0
  5069.  
  5070.  tst.w (a0)
  5071.  blt outoflcliplop
  5072.  
  5073.  bsr NEWsetlclip
  5074.  
  5075. intolcliplop:        ; clips
  5076.  tst.w (a0)
  5077.  blt outoflcliplop
  5078.  
  5079.  bsr NEWsetlclip 
  5080.  bra intolcliplop
  5081.  
  5082. outoflcliplop:
  5083.  
  5084.  addq #2,a0
  5085.  
  5086.  tst.w (a0)
  5087.  blt outofrcliplop
  5088.  
  5089.  bsr NEWsetrclip
  5090.  
  5091. intorcliplop:        ; clips
  5092.  tst.w (a0)
  5093.  blt outofrcliplop
  5094.  
  5095.  bsr NEWsetrclip 
  5096.  bra intorcliplop
  5097.  
  5098. outofrcliplop:
  5099.  
  5100.  
  5101.  move.w leftclip,d0
  5102.  cmp.w RIGHTX,d0
  5103.  bge dontbothercantseeit
  5104.  move.w rightclip,d1
  5105.  blt dontbothercantseeit
  5106.  cmp.w d1,d0
  5107.  bge dontbothercantseeit
  5108.  
  5109.  move.l yoff,d0
  5110.  cmp.l SplitHeight,d0
  5111.  blt botfirst
  5112.  
  5113.  move.l ThisRoomToDraw+4,a0
  5114.  cmp.l LEVELGRAPHICS,a0
  5115.  beq.s noupperroom
  5116.  st DOUPPER
  5117.  
  5118.  move.l ROOMBACK,a1
  5119.  move.l ToUpperRoof(a1),TOPOFROOM
  5120.  move.l ToUpperFloor(a1),BOTOFROOM
  5121.  
  5122.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5123.  bsr dothisroom
  5124. noupperroom:
  5125.  move.l ThisRoomToDraw,a0
  5126.  clr.b DOUPPER
  5127.  move.l #CurrentPointBrights,PointBrightsPtr
  5128.  
  5129.  move.l ROOMBACK,a1
  5130.  move.l ToZoneRoof(a1),d0
  5131.  move.l d0,TOPOFROOM
  5132.  move.l ToZoneFloor(a1),d1
  5133.  move.l d1,BOTOFROOM
  5134.  
  5135.  move.l ToZoneWater(a1),d2
  5136.  cmp.l yoff,d2
  5137.  blt.s .abovefirst
  5138.  move.l d2,BEFOREWATTOP
  5139.  move.l d1,BEFOREWATBOT
  5140.  move.l d2,AFTERWATBOT
  5141.  move.l d0,AFTERWATTOP
  5142.  bra.s .belowfirst
  5143. .abovefirst:
  5144.  move.l d0,BEFOREWATTOP
  5145.  move.l d2,BEFOREWATBOT
  5146.  move.l d1,AFTERWATBOT
  5147.  move.l d2,AFTERWATTOP
  5148. .belowfirst:
  5149.  
  5150.  bsr dothisroom
  5151.  
  5152.  bra dontbothercantseeit
  5153. botfirst:
  5154.  
  5155.  move.l ThisRoomToDraw,a0
  5156.  clr.b DOUPPER
  5157.  move.l #CurrentPointBrights,PointBrightsPtr
  5158.  
  5159.  move.l ROOMBACK,a1
  5160.  move.l ToZoneRoof(a1),d0
  5161.  move.l d0,TOPOFROOM
  5162.  move.l ToZoneFloor(a1),d1
  5163.  move.l d1,BOTOFROOM
  5164.  
  5165.  move.l ToZoneWater(a1),d2
  5166.  cmp.l yoff,d2
  5167.  blt.s .abovefirst
  5168.  move.l d2,BEFOREWATTOP
  5169.  move.l d1,BEFOREWATBOT
  5170.  move.l d2,AFTERWATBOT
  5171.  move.l d0,AFTERWATTOP
  5172.  bra.s .belowfirst
  5173. .abovefirst:
  5174.  move.l d0,BEFOREWATTOP
  5175.  move.l d2,BEFOREWATBOT
  5176.  move.l d1,AFTERWATBOT
  5177.  move.l d2,AFTERWATTOP
  5178. .belowfirst:
  5179.  
  5180.  
  5181.  bsr dothisroom
  5182.  move.l ThisRoomToDraw+4,a0
  5183.  cmp.l LEVELGRAPHICS,a0
  5184.  beq.s noupperroom2
  5185.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5186.  
  5187.  move.l ROOMBACK,a1
  5188.  move.l ToUpperRoof(a1),TOPOFROOM
  5189.  move.l ToUpperFloor(a1),BOTOFROOM
  5190.  
  5191.  st DOUPPER
  5192.  bsr dothisroom
  5193. noupperroom2:
  5194.  
  5195. dontbothercantseeit:
  5196. pastemp:
  5197.  
  5198.  move.l (a7)+,a1
  5199.  move.l ThisRoomToDraw,a0
  5200.  move.w (a0),d7
  5201.  
  5202.  adda.w #8,a1
  5203.  bra finditit
  5204.  
  5205. nomoretodoatall:
  5206.  
  5207.  move.l (a7)+,a0
  5208.  
  5209.  bra subroomloop
  5210.  
  5211. jumpoutofrooms:
  5212.  
  5213.  
  5214.  tst.b DONTDOGUN
  5215.  bne NOGUNLOOK
  5216.  
  5217.  cmp.b #'s',mors
  5218.  beq.s drawslavegun
  5219.  
  5220.  moveq #0,d0
  5221.  move.b PLR1_GunSelected,d0
  5222.  moveq #0,d1
  5223.  move.b PLR1_GunFrame,d1
  5224. ; bsr DRAWINGUN
  5225.  bra drawngun
  5226.  
  5227. drawslavegun
  5228.  moveq #0,d0
  5229.  move.b PLR2_GunSelected,d0
  5230.  moveq #0,d1
  5231.  move.b PLR2_GunFrame,d1
  5232. ; bsr DRAWINGUN
  5233.  
  5234. drawngun:
  5235.  
  5236. NOGUNLOOK:
  5237.  
  5238.  moveq #0,d1
  5239.  move.b PLR1_GunFrame,d1
  5240.  sub.w TempFrames,d1
  5241.  bgt.s .nn
  5242.  moveq #0,d1
  5243. .nn
  5244.  move.b d1,PLR1_GunFrame
  5245.  
  5246.  ble.s .donefire
  5247.  sub.b #1,PLR1_GunFrame
  5248. .donefire:
  5249.  
  5250.  moveq #0,d1
  5251.  move.b PLR2_GunFrame,d1
  5252.  sub.w TempFrames,d1
  5253.  bgt.s .nn2
  5254.  moveq #0,d1
  5255. .nn2
  5256.  move.b d2,PLR2_GunFrame
  5257.  
  5258.  ble.s .donefire2
  5259.  sub.b #1,PLR2_GunFrame
  5260. .donefire2:
  5261.  
  5262.  tst.b DOANYWATER
  5263.  beq.s nowaterfull
  5264.  
  5265.  move.w #231,d0
  5266.  move.l FASTBUFFER,a0
  5267.  tst.b fillscrnwater
  5268.  beq nowaterfull
  5269.  bgt oknothalf
  5270.  moveq #119,d0
  5271.  add.l #320*120*2,a0
  5272. oknothalf:
  5273.  
  5274.  bclr.b #1,$bfe001
  5275.  
  5276.  move.l #brightentab+512*4,a2
  5277.  moveq #0,d2
  5278.  
  5279.  tst.b FULLSCR
  5280.  bne.s DOALLSCREEN
  5281.  
  5282. DOSOMESCREEN:
  5283.  
  5284.  move.w #159,d0
  5285. .fw:
  5286.  move.w #191,d1
  5287. .fwa:
  5288.  move.b (a0),d2
  5289.  move.b (a2,d2.w*2),(a0)+
  5290.  dbra d1,.fwa
  5291.  add.w #(320-192),a0
  5292.  dbra d0,.fw
  5293.  rts
  5294.  
  5295. DOALLSCREEN:
  5296.  
  5297. fw:
  5298.  move.w #287,d1
  5299. fwa:
  5300.  move.b (a0),d2
  5301.  move.b (a2,d2.w*2),(a0)+
  5302.  dbra d1,fwa
  5303.  add.w #32,a0
  5304.  dbra d0,fw
  5305.  
  5306. ; move.l frompt,a0
  5307. ; add.l #104*4*60,a0
  5308. ; 
  5309. ; move.w #31,d0
  5310. ;fw:
  5311. ; move.w d5,d1
  5312. ; move.l a0,a1
  5313. ;fwd:
  5314. ;val SET 104*4*19
  5315. ; REPT 20
  5316. ; and.w #$ff,val(a1)
  5317. ;val SET val-104*4
  5318. ; ENDR
  5319. ; sub.l #104*4*20,a1
  5320. ; dbra d1,fwd
  5321. ; addq #4,a0
  5322. ; dbra d0,fw
  5323. ;
  5324. ; addq #4,a0
  5325. ;
  5326. ; move.w #31,d0
  5327. ;sw:
  5328. ; move.w d5,d1
  5329. ; move.l a0,a1
  5330. ;swd:
  5331. ;val SET 104*4*19
  5332. ; REPT 20
  5333. ; and.w #$ff,val(a1)
  5334. ;val SET val-104*4
  5335. ; ENDR
  5336. ; sub.l #104*4*20,a1
  5337. ; dbra d1,swd
  5338. ; addq #4,a0
  5339. ; dbra d0,sw
  5340. ;
  5341. ; addq #4,a0
  5342. ;
  5343. ; move.w #31,d0
  5344. ;tw:
  5345. ; move.w d5,d1
  5346. ; move.l a0,a1
  5347. ;twd:
  5348. ;val SET 104*4*19
  5349. ; REPT 20
  5350. ; and.w #$ff,val(a1)
  5351. ;val SET val-104*4
  5352. ; ENDR
  5353. ; sub.l #104*4*20,a1
  5354. ; dbra d1,twd
  5355. ; addq #4,a0
  5356. ; dbra d0,tw
  5357. ;
  5358.  rts
  5359.  
  5360. nowaterfull:
  5361.  bset.b #1,$bfe001
  5362.  rts
  5363.  
  5364. prot9: dc.w 0
  5365.  
  5366. ;TempBuffer: ds.l 100 
  5367.  
  5368. prot8: dc.w 0
  5369.  
  5370. ClipTable: ds.l 30
  5371. EndOfClipPt: dc.l 0
  5372. DOUPPER: dc.w 0
  5373.  
  5374. RealTable:
  5375.  dc.l prot1-78935450
  5376.  dc.l prot2-78935450
  5377.  dc.l prot3-78935450
  5378.  dc.l prot4-78935450
  5379.  dc.l prot5-78935450
  5380.  dc.l prot6-78935450
  5381.  dc.l prot7-78935450
  5382.  dc.l prot8-78935450
  5383.  dc.l prot9-78935450
  5384.  dc.l protA-78935450
  5385.  
  5386. dothisroom
  5387.  
  5388.  move.w (a0)+,d0
  5389.  move.w d0,currzone
  5390.  move.w d0,d1
  5391.  muls #40,d1
  5392.  add.l #BIGMAP,d1
  5393.  move.l d1,BIGPTR
  5394.  move.w d0,d1
  5395.  ext.l d1
  5396.  asl.w #2,d1
  5397.  add.l #COMPACTMAP,d1
  5398.  move.l d1,COMPACTPTR
  5399.  add.l #4,d1
  5400.  cmp.l LASTZONE,d1
  5401.  ble.s .nochange
  5402.  move.l d1,LASTZONE
  5403. .nochange:
  5404.  
  5405.  move.l #ZoneBrightTable,a1
  5406.  move.l (a1,d0.w*4),d1
  5407.  tst.b DOUPPER
  5408.  bne.s .okbot
  5409.  swap d1
  5410. .okbot:
  5411.  move.w d1,ZoneBright
  5412.  
  5413. polyloop:
  5414.  move.w (a0)+,d0
  5415.  move.w d0,WALLIDENT
  5416.  and.w #$ff,d0
  5417.  tst.b d0
  5418.  blt jumpoutofloop
  5419.  beq itsawall
  5420.  cmp.w #3,d0
  5421.  beq itsasetclip
  5422.  blt itsafloor
  5423.  cmp.w #4,d0
  5424.  beq itsanobject
  5425.  cmp.w #5,d0
  5426.  beq itsanarc
  5427.  cmp.w #6,d0
  5428.  beq itsalightbeam
  5429.  cmp.w #7,d0
  5430.  beq.s itswater
  5431.  cmp.w #9,d0
  5432.  ble itsachunkyfloor
  5433.  cmp.w #11,d0
  5434.  ble itsabumpyfloor
  5435.  cmp.w #12,d0
  5436.  beq.s itsbackdrop
  5437.  cmp.w #13,d0
  5438.  beq.s itsaseewall
  5439.  
  5440.  bra polyloop
  5441.  
  5442. itsaseewall:
  5443.  st seethru
  5444.  jsr itsawalldraw
  5445.  bra polyloop
  5446.  
  5447. itsbackdrop:
  5448.  jsr putinbackdrop
  5449.  bra polyloop
  5450.  
  5451. itswater:
  5452.  PROTHCHECK
  5453.  move.w #2,SMALLIT
  5454.  move.w #3,d0
  5455.  clr.b gourfloor
  5456.  move.l #FloorLine,LineToUse
  5457.  st usewater
  5458.  clr.b usebumps
  5459.  jsr itsafloordraw
  5460.  bra polyloop
  5461.  
  5462. itsanarc:
  5463.  jsr CurveDraw
  5464.  bra polyloop
  5465.  
  5466. itsanobject:
  5467.  jsr ObjDraw
  5468.  bra polyloop
  5469.  
  5470. itsalightbeam:
  5471.  jsr LightDraw
  5472.  bra polyloop
  5473.  
  5474. itsabumpyfloor:
  5475.  move.w #1,SMALLIT
  5476.  sub.w #9,d0
  5477.  st usebumps
  5478.  st smoothbumps
  5479.  clr.b usewater
  5480.  move.l #BumpLine,LineToUse
  5481.  jsr itsafloordraw
  5482.  bra polyloop
  5483.  
  5484. itsachunkyfloor:
  5485.  move.w #1,SMALLIT
  5486.  subq.w #7,d0
  5487.  st usebumps
  5488.  sub.w #12,topclip
  5489. ; add.w #10,botclip
  5490.  clr.b smoothbumps
  5491.  clr.b usewater
  5492.  move.l #BumpLine,LineToUse
  5493.  jsr itsafloordraw
  5494.  add.w #12,topclip
  5495. ; sub.w #10,botclip
  5496.  bra polyloop 
  5497.  
  5498. itsafloor:
  5499.  
  5500.  move.l PointBrightsPtr,FloorPtBrights
  5501.  
  5502.  move.w currzone,d1
  5503.  muls #80,d1
  5504.  
  5505.  cmp.w #2,d0
  5506.  bne.s .nfl
  5507.  add.l #2,d1
  5508. .nfl
  5509.  add.l d1,FloorPtBrights
  5510.  
  5511.  move.w #1,SMALLIT
  5512.  
  5513.  movem.l a0/d0,-(a7)
  5514.  move.l $4.w,a6
  5515.  jsr _LVOSuperState(a6)
  5516.  move.l d0,SSTACK
  5517.  movem.l (a7)+,a0/d0
  5518.  
  5519.  move.l #FloorLine,LineToUse
  5520. * 1,2 = floor/roof
  5521.  clr.b usewater
  5522.  clr.b usebumps
  5523.  move.b GOURSEL,gourfloor    
  5524.  jsr itsafloordraw
  5525.  move.l a0,-(a7)
  5526.  move.l $4.w,a6
  5527.  move.l SSTACK,d0
  5528.  jsr _LVOUserState(a6)
  5529.  move.l (a7)+,a0
  5530.  bra polyloop
  5531. itsasetclip:
  5532.  bra polyloop
  5533. itsawall:
  5534.  clr.b seethru
  5535. ; move.l #stripbuffer,a1
  5536.  jsr itsawalldraw
  5537.  bra polyloop
  5538.  
  5539. jumpoutofloop:
  5540.  rts
  5541.  
  5542. LASTZONE: dc.l 0
  5543. COMPACTPTR: dc.l 0
  5544. BIGPTR: dc.l 0
  5545. WALLIDENT: dc.w 0
  5546. SMALLIT: dc.w 0
  5547. GOURSEL: dc.w 0
  5548. ThisRoomToDraw: dc.l 0,0
  5549. SplitHeight: dc.l 0
  5550.  
  5551.  include "ab3:source_4000/OrderZones"
  5552.  
  5553. ReadMouse:
  5554.  move.l #$dff000,a6
  5555.  clr.l d0
  5556.  clr.l d1
  5557.  move.w $a(a6),d0
  5558.  lsr.w #8,d0
  5559.  ext.l d0
  5560.  move.w d0,d3
  5561.  move.w oldmy,d2
  5562.  sub.w d2,d0
  5563.  
  5564.  cmp.w #127,d0
  5565.  blt nonegy
  5566.  move.w #255,d1
  5567.  sub.w d0,d1
  5568.  move.w d1,d0
  5569.  neg.w d0
  5570. nonegy:
  5571.  
  5572.  cmp.w #-127,d0
  5573.  bge nonegy2
  5574.  move.w #255,d1
  5575.  add.w d0,d1
  5576.  move.w d1,d0
  5577. nonegy2:
  5578.  
  5579.  add.b d0,d2
  5580.  add.w d0,oldy2
  5581.  move.w d2,oldmy
  5582.  move.w d2,d0
  5583.  
  5584.  move.w oldy2,d0
  5585.  move.w d0,ymouse
  5586.  
  5587.  clr.l d0
  5588.  clr.l d1
  5589.  move.w $a(a6),d0
  5590.  ext.w d0
  5591.  ext.l d0
  5592.  move.w d0,d3
  5593.  move.w oldmx,d2
  5594.  sub.w d2,d0
  5595.  
  5596.  cmp.w #127,d0
  5597.  blt nonegx
  5598.  move.w #255,d1
  5599.  sub.w d0,d1
  5600.  move.w d1,d0
  5601.  neg.w d0
  5602. nonegx:
  5603.  
  5604.  cmp.w #-127,d0
  5605.  bge nonegx2
  5606.  move.w #255,d1
  5607.  add.w d0,d1
  5608.  move.w d1,d0
  5609. nonegx2:
  5610.  
  5611.  add.b d0,d2
  5612.  move.w d0,d1
  5613.  move.w d2,oldmx
  5614.  
  5615.  move.w #$0,$dff034
  5616.  
  5617.  add.w d0,oldx2
  5618.  move.w oldx2,d0
  5619.  and.w #2047,d0
  5620.  move.w d0,oldx2
  5621.  
  5622.  asl.w #2,d0
  5623.  sub.w prevx,d0
  5624.  add.w d0,prevx
  5625.  add.w d0,angpos
  5626.  move.w #0,lrs
  5627.  rts
  5628.  
  5629. noturn:
  5630.  
  5631. ; got to move lr instead. 
  5632.  
  5633. ; d1 = speed moved l/r
  5634.  
  5635.  move.w d1,lrs
  5636.  
  5637.  rts
  5638.  
  5639. lrs: dc.w 0
  5640. prevx: dc.w 0
  5641.  
  5642. angpos: dc.w 0
  5643. mang: dc.w 0
  5644. oldymouse: dc.w 0
  5645. xmouse: dc.w 0
  5646. ymouse: dc.w 0
  5647. oldx2: dc.w 0
  5648. oldmx: dc.w 0
  5649. oldmy: dc.w 0
  5650. oldy2: dc.w 0
  5651.  
  5652. MAPON: dc.w $0
  5653. REALMAPON: dc.w 0
  5654.  
  5655. RotateLevelPts:
  5656.  
  5657.  tst.b REALMAPON
  5658.  beq ONLYTHELONELY
  5659.  
  5660.  move.w sinval,d6
  5661.  swap d6
  5662.  move.w cosval,d6
  5663.  move.l Points,a3
  5664.  move.l #Rotated,a1
  5665.  move.l #OnScreen,a2
  5666.  move.w xoff,d4
  5667.  move.w zoff,d5
  5668.  
  5669. ; move.w #$c40,$dff106
  5670. ; move.w #$f00,$dff180
  5671.  
  5672.  move.w NumLevPts,d7
  5673.  
  5674.  tst.b FULLSCR
  5675.  bne BIGALL
  5676.  
  5677. pointrotlop2:
  5678.  move.w (a3)+,d0
  5679.  sub.w d4,d0
  5680.  move.w d0,d2
  5681.  move.w (a3)+,d1
  5682.  sub.w d5,d1
  5683.  muls d6,d2
  5684.  swap d6
  5685.  move.w d1,d3
  5686.  muls d6,d3
  5687.  sub.l d3,d2
  5688.  add.l d2,d2
  5689.  swap d2
  5690.  ext.l d2
  5691.  asl.l #7,d2
  5692.  add.l xwobble,d2
  5693.  move.l d2,(a1)+
  5694.  
  5695.  muls d6,d0
  5696.  swap d6
  5697.  muls d6,d1
  5698.  add.l d0,d1
  5699.  asl.l #1,d1
  5700.  swap d1
  5701. ; ext.l d1
  5702. ; divs #3,d1
  5703.  move.l d1,(a1)+
  5704.  
  5705.  tst.w d1
  5706.  bgt.s ptnotbehind
  5707.  tst.w d2
  5708.  bgt.s onrightsomewhere
  5709.  move.w #0,d2
  5710.  bra putin
  5711. onrightsomewhere:
  5712.  move.w RIGHTX,d2
  5713.  bra putin
  5714. ptnotbehind:
  5715.  
  5716.  divs d1,d2
  5717.  add.w MIDDLEX,d2
  5718. putin:
  5719.  move.w d2,(a2)+
  5720.  
  5721.  dbra d7,pointrotlop2
  5722. outofpointrot:
  5723.   rts
  5724.  
  5725.  
  5726. BIGALL:
  5727.  
  5728. pointrotlop2B:
  5729.  move.w (a3)+,d0
  5730.  sub.w d4,d0
  5731.  move.w d0,d2
  5732.  move.w (a3)+,d1
  5733.  sub.w d5,d1
  5734.  muls d6,d2
  5735.  swap d6
  5736.  move.w d1,d3
  5737.  muls d6,d3
  5738.  sub.l d3,d2
  5739.  add.l d2,d2
  5740.  swap d2
  5741.  ext.l d2
  5742.  asl.l #7,d2
  5743.  add.l xwobble,d2
  5744.  move.l d2,(a1)+
  5745.  
  5746.  muls d6,d0
  5747.  swap d6
  5748.  muls d6,d1
  5749.  add.l d0,d1
  5750.  asl.l #2,d1
  5751.  swap d1
  5752.  ext.l d1
  5753.  divs #3,d1
  5754.  move.l d1,(a1)+
  5755.  
  5756.  tst.w d1
  5757.  bgt.s ptnotbehindB
  5758.  tst.w d2
  5759.  bgt.s onrightsomewhereB
  5760.  move.w #0,d2
  5761.  bra putinB
  5762. onrightsomewhereB:
  5763.  move.w RIGHTX,d2
  5764.  bra putinB
  5765. ptnotbehindB:
  5766.  
  5767.  divs d1,d2
  5768.  add.w MIDDLEX,d2
  5769. putinB:
  5770.  move.w d2,(a2)+
  5771.  
  5772.  dbra d7,pointrotlop2B
  5773.   rts
  5774.  
  5775.  
  5776. ONLYTHELONELY:
  5777.  
  5778.  move.w sinval,d6
  5779.  swap d6
  5780.  move.w cosval,d6
  5781.  
  5782.  move.l PointsToRotatePtr,a0
  5783.  move.l Points,a3
  5784.  move.l #Rotated,a1
  5785.  move.l #OnScreen,a2
  5786.  move.w xoff,d4
  5787.  move.w zoff,d5
  5788.  
  5789. ; move.w #$c40,$dff106
  5790. ; move.w #$f00,$dff180
  5791.  
  5792.  tst.b FULLSCR
  5793.  bne BIGLONELY
  5794.  
  5795. pointrotlop:
  5796.  move.w (a0)+,d7
  5797.  blt outofpointrot
  5798.  
  5799.  move.w (a3,d7*4),d0
  5800.  sub.w d4,d0
  5801.  move.w d0,d2
  5802.  move.w 2(a3,d7*4),d1
  5803.  sub.w d5,d1
  5804.  muls d6,d2
  5805.  swap d6
  5806.  move.w d1,d3
  5807.  muls d6,d3
  5808.  sub.l d3,d2
  5809.  add.l d2,d2
  5810.  swap d2
  5811.  ext.l d2
  5812.  asl.l #7,d2
  5813.  add.l xwobble,d2
  5814.  move.l d2,(a1,d7*8)
  5815.  
  5816.  muls d6,d0
  5817.  swap d6
  5818.  muls d6,d1
  5819.  add.l d0,d1
  5820.  asl.l #1,d1
  5821.  swap d1
  5822. ; ext.l d1
  5823. ; divs #3,d1
  5824.  move.l d1,4(a1,d7*8)
  5825.  
  5826.  tst.w d1
  5827.  bgt.s .ptnotbehind
  5828.  tst.w d2
  5829.  bgt.s .onrightsomewhere
  5830.  move.w #0,d2
  5831.  bra .putin
  5832. .onrightsomewhere:
  5833.  move.w RIGHTX,d2
  5834.  bra .putin
  5835. .ptnotbehind:
  5836.  
  5837.  divs d1,d2
  5838.  add.w MIDDLEX,d2
  5839. .putin:
  5840.  move.w d2,(a2,d7*2)
  5841.  
  5842.  bra pointrotlop
  5843.  
  5844. ; move.w #$c40,$dff106
  5845. ; move.w #$ff0,$dff180
  5846.  
  5847.  rts
  5848.  
  5849. BIGLONELY:
  5850.  
  5851. .pointrotlop:
  5852.  move.w (a0)+,d7
  5853.  blt.s .outofpointrot
  5854.  
  5855.  move.w (a3,d7*4),d0
  5856.  sub.w d4,d0
  5857.  move.w d0,d2
  5858.  move.w 2(a3,d7*4),d1
  5859.  sub.w d5,d1
  5860.  muls d6,d2
  5861.  swap d6
  5862.  move.w d1,d3
  5863.  muls d6,d3
  5864.  sub.l d3,d2
  5865.  add.l d2,d2
  5866.  swap d2
  5867.  ext.l d2
  5868.  asl.l #7,d2
  5869.  add.l xwobble,d2
  5870.  move.l d2,(a1,d7*8)
  5871.  
  5872.  muls d6,d0
  5873.  swap d6
  5874.  muls d6,d1
  5875.  add.l d0,d1
  5876.  asl.l #2,d1
  5877.  swap d1
  5878.  ext.l d1
  5879.  divs #3,d1
  5880.  move.l d1,4(a1,d7*8)
  5881.  
  5882.  tst.w d1
  5883.  bgt.s .ptnotbehind
  5884.  tst.w d2
  5885.  bgt.s .onrightsomewhere
  5886.  move.w #0,d2
  5887.  bra .putin
  5888. .onrightsomewhere:
  5889.  move.w RIGHTX,d2
  5890.  bra .putin
  5891. .ptnotbehind:
  5892.  
  5893.  divs d1,d2
  5894.  add.w MIDDLEX,d2
  5895. .putin:
  5896.  move.w d2,(a2,d7*2)
  5897.  
  5898.  bra .pointrotlop
  5899.  
  5900. .outofpointrot:
  5901. ; move.w #$c40,$dff106
  5902. ; move.w #$ff0,$dff180
  5903.  
  5904.  rts
  5905.  
  5906.  
  5907. PLR1_ObjDists
  5908.  ds.w 250
  5909. PLR2_ObjDists
  5910.  ds.w 250
  5911.  
  5912. CalcPLR1InLine:
  5913.  
  5914.  move.w PLR1_sinval,d5
  5915.  move.w PLR1_cosval,d6
  5916.  move.l ObjectData,a4
  5917.  move.l ObjectPoints,a0
  5918.  move.w NumObjectPoints,d7
  5919.  move.l #PLR1_ObsInLine,a2
  5920.  move.l #PLR1_ObjDists,a3
  5921.  
  5922. .objpointrotlop:
  5923.  
  5924.  cmp.b #3,16(a4)
  5925.  beq.s .itaux
  5926.  
  5927.  move.w (a0),d0
  5928.  sub.w PLR1_xoff,d0
  5929.  move.w 4(a0),d1
  5930.  addq #8,a0
  5931.  
  5932.  tst.w 12(a4)
  5933.  blt .noworkout
  5934.  
  5935.  moveq #0,d2
  5936.  move.b 16(a4),d2
  5937.  ;move.l #ColBoxTable,a6
  5938.  ;lea (a6,d2.w*8),a6
  5939.  
  5940.  sub.w PLR1_zoff,d1
  5941.  move.w d0,d2
  5942.  muls d6,d2
  5943.  move.w d1,d3
  5944.  muls d5,d3
  5945.  sub.l d3,d2
  5946.  add.l d2,d2
  5947.  
  5948.  bgt.s .okh
  5949.  neg.l d2
  5950. .okh:
  5951.  swap d2
  5952.  
  5953.  muls d5,d0
  5954.  muls d6,d1
  5955.  add.l d0,d1
  5956.  asl.l #2,d1
  5957.  swap d1
  5958.  moveq #0,d3
  5959.  
  5960.  tst.w d1
  5961.  ble.s .notinline
  5962.  asr.w #1,d2
  5963.  cmp.w #80,d2
  5964.  bgt.s .notinline
  5965.  
  5966.  st d3
  5967. .notinline
  5968.  move.b d3,(a2)+
  5969.  
  5970.  move.w d1,(a3)+
  5971.  
  5972.  add.w #64,a4
  5973.  dbra d7,.objpointrotlop
  5974.  
  5975.  rts
  5976.  
  5977. .itaux:
  5978.  add.w #64,a4
  5979.  bra .objpointrotlop
  5980.  
  5981. .noworkout:
  5982.  move.b #0,(a2)+
  5983.  move.w #0,(a3)+
  5984.  add.w #64,a4
  5985.  dbra d7,.objpointrotlop
  5986.  rts
  5987.  
  5988.  
  5989. CalcPLR2InLine:
  5990.  
  5991.  move.w PLR2_sinval,d5
  5992.  move.w PLR2_cosval,d6
  5993.  move.l ObjectData,a4
  5994.  move.l ObjectPoints,a0
  5995.  move.w NumObjectPoints,d7
  5996.  move.l #PLR2_ObsInLine,a2
  5997.  move.l #PLR2_ObjDists,a3
  5998.  
  5999. .objpointrotlop:
  6000.  
  6001.  cmp.b #3,16(a4)
  6002.  beq.s .itaux
  6003.  
  6004.  move.w (a0),d0
  6005.  sub.w PLR2_xoff,d0
  6006.  move.w 4(a0),d1
  6007.  addq #8,a0
  6008.  
  6009.  tst.w 12(a4)
  6010.  blt .noworkout
  6011.  
  6012.  moveq #0,d2
  6013.  move.b 16(a4),d2
  6014. ; move.l #ColBoxTable,a6
  6015. ; lea (a6,d2.w*8),a6
  6016.  
  6017.  sub.w PLR2_zoff,d1
  6018.  move.w d0,d2
  6019.  muls d6,d2
  6020.  move.w d1,d3
  6021.  muls d5,d3
  6022.  sub.l d3,d2
  6023.  add.l d2,d2
  6024.  
  6025.  bgt.s .okh
  6026.  neg.l d2
  6027. .okh:
  6028.  swap d2
  6029.  
  6030.  muls d5,d0
  6031.  muls d6,d1
  6032.  add.l d0,d1
  6033.  asl.l #2,d1
  6034.  swap d1
  6035.  moveq #0,d3
  6036.  
  6037.  tst.w d1
  6038.  ble.s .notinline
  6039.  asr.w #1,d2
  6040.  cmp.w (a6),d2
  6041.  bgt.s .notinline
  6042.  
  6043.  st d3
  6044. .notinline
  6045.  move.b d3,(a2)+
  6046.  
  6047.  move.w d1,(a3)+
  6048.  
  6049.  add.w #64,a4
  6050.  dbra d7,.objpointrotlop
  6051.  
  6052.  rts
  6053.  
  6054. .itaux:
  6055.  add.w #64,a4
  6056.  bra .objpointrotlop
  6057.  
  6058. .noworkout:
  6059.  move.w #0,(a3)+
  6060.  move.b #0,(a2)+
  6061.  add.w #64,a4
  6062.  dbra d7,.objpointrotlop
  6063.  rts
  6064.  
  6065.  
  6066. RotateObjectPts:
  6067.  
  6068.  move.w sinval,d5
  6069.  move.w cosval,d6
  6070.  
  6071.  move.l ObjectData,a4
  6072.  move.l ObjectPoints,a0
  6073.  move.w NumObjectPoints,d7
  6074.  move.l #ObjRotated,a1
  6075.  
  6076.  tst.b FULLSCR
  6077.  bne BIGOBJPTS
  6078.  
  6079.  
  6080. .objpointrotlop:
  6081.  
  6082.  cmp.b #3,16(a4)
  6083.  beq.s .itaux
  6084.  
  6085.  move.w (a0),d0
  6086.  sub.w xoff,d0
  6087.  move.w 4(a0),d1
  6088.  addq #8,a0
  6089.  
  6090.  tst.w 12(a4)
  6091.  blt .noworkout
  6092.  
  6093.  sub.w zoff,d1
  6094.  
  6095.  move.w d0,d2
  6096.  muls d6,d2
  6097.  move.w d1,d3
  6098.  muls d5,d3
  6099.  sub.l d3,d2
  6100.  
  6101.  
  6102.  add.l d2,d2
  6103.  swap d2
  6104.  move.w d2,(a1)+
  6105.  
  6106.  muls d5,d0
  6107.  muls d6,d1
  6108.  add.l d0,d1
  6109.  asl.l #1,d1
  6110.  swap d1
  6111. ; ext.l d1
  6112. ; divs #3,d1
  6113.  moveq #0,d3
  6114.  
  6115.  move.w d1,(a1)+
  6116.  ext.l d2
  6117.  asl.l #7,d2
  6118.  add.l xwobble,d2
  6119.  move.l d2,(a1)+
  6120.  
  6121.  dbra d7,.objpointrotlop
  6122.  
  6123.  rts
  6124.  
  6125. .itaux:
  6126.  add.w #64,a4
  6127.  bra .objpointrotlop
  6128.  
  6129. .noworkout:
  6130.   move.l #0,(a1)+
  6131.   move.l #0,(a1)+
  6132.   add.w #64,a4
  6133.   dbra d7,.objpointrotlop
  6134.   rts
  6135.   
  6136. BIGOBJPTS:
  6137.  
  6138. .objpointrotlop:
  6139.  
  6140.  cmp.b #3,16(a4)
  6141.  beq.s .itaux
  6142.  
  6143.  move.w (a0),d0
  6144.  sub.w xoff,d0
  6145.  move.w 4(a0),d1
  6146.  addq #8,a0
  6147.  
  6148.  tst.w 12(a4)
  6149.  blt .noworkout
  6150.  
  6151.  sub.w zoff,d1
  6152.  move.w d0,d2
  6153.  muls d6,d2
  6154.  move.w d1,d3
  6155.  muls d5,d3
  6156.  sub.l d3,d2
  6157.  
  6158.  
  6159.  add.l d2,d2
  6160.  swap d2
  6161.  move.w d2,(a1)+
  6162.  
  6163.  muls d5,d0
  6164.  muls d6,d1
  6165.  add.l d0,d1
  6166.  asl.l #2,d1
  6167.  swap d1
  6168.  ext.l d1
  6169.  divs #3,d1
  6170.  moveq #0,d3
  6171.  
  6172.  move.w d1,(a1)+
  6173.  ext.l d2
  6174.  asl.l #7,d2
  6175.  add.l xwobble,d2
  6176.  move.l d2,(a1)+
  6177.  sub.l xwobble,d2
  6178.  
  6179.  add.w #64,a4
  6180.  dbra d7,.objpointrotlop
  6181.  
  6182.  rts
  6183.  
  6184. .itaux:
  6185.  add.w #64,a4
  6186.  bra .objpointrotlop
  6187.  
  6188. .noworkout:
  6189.   move.l #0,(a1)+
  6190.   move.l #0,(a1)+
  6191.   add.w #64,a4
  6192.   dbra d7,.objpointrotlop
  6193.   rts
  6194.  
  6195. LightDraw:
  6196.  
  6197.  move.w (a0)+,d0
  6198.  move.w (a0)+,d1
  6199.  move.l #Rotated,a1
  6200.  move.w 6(a1,d0.w*8),d2
  6201.  ble.s oneendbehind
  6202.  move.w 6(a1,d1.w*8),d3
  6203.  bgt.s bothendsinfront
  6204.  
  6205. oneendbehind:
  6206.  rts
  6207. bothendsinfront:
  6208.  
  6209.  move.l #OnScreen,a2
  6210.  move.w (a2,d0.w*2),d0
  6211.  bge.s okleftend
  6212.  moveq #0,d0
  6213. okleftend:
  6214.  move.w (a2,d1.w*2),d1
  6215.  bgt.s somevis
  6216.  rts
  6217. somevis:
  6218.  cmp.w RIGHTX,d0
  6219.  blt.s somevis2
  6220.  rts
  6221. somevis2:
  6222.  cmp.w RIGHTX,d1
  6223.  blt.s okrightend
  6224.  move.w RIGHTX,d1
  6225.  subq #1,d1
  6226. okrightend:
  6227.  
  6228.  sub.w d0,d1
  6229.  blt.s wrongbloodywayround
  6230.  move.l #brightentab,a4
  6231.  move.l #objintocop,a1
  6232.  lea (a1,d0.w*2),a1
  6233.  
  6234.  move.l frompt,a3
  6235.  move.w #104*4,d6
  6236.  move.w #79,d2
  6237. lacross:
  6238.  move.w d2,d3
  6239.  move.l a3,a2
  6240.  adda.w (a1)+,a2
  6241. ldown:
  6242.  add.w d6,a2
  6243.  move.w (a2),d7
  6244.  move.w (a4,d7.w*2),(a2)
  6245.  dbra d3,ldown
  6246.  dbra d1,lacross
  6247.  
  6248. wrongbloodywayround:
  6249.  
  6250.  rts
  6251.  
  6252. FaceToPlace: dc.w 0
  6253.  
  6254. Cheese:
  6255.  dc.w 4,15
  6256.  
  6257. FacesList:
  6258.  dc.w 0,4*4
  6259.  dc.w 1,2*4
  6260.  dc.w 0,2*4
  6261.  dc.w 2,2*4
  6262.  dc.w 0,2*4
  6263.  dc.w 1,3*4
  6264.  dc.w 0,2*4
  6265.  dc.w 2,3*4
  6266.  dc.w 0,5*4
  6267.  dc.w 1,2*4
  6268.  dc.w 0,2*4
  6269.  dc.w 2,2*4
  6270.  dc.w 0,2*4
  6271.  dc.w 1,2*4
  6272.  dc.w 0,2*4
  6273.  dc.w 2,3*4
  6274.  dc.w 0,1*4
  6275.  dc.w 1,3*4
  6276.  dc.w 0,1*4
  6277.  dc.w 2,3*4
  6278.  dc.w 0,1*4
  6279.  
  6280. EndOfFacesList:
  6281.  
  6282. FacesPtr:
  6283.  dc.l FacesList
  6284. FacesCounter:
  6285.  dc.w 0
  6286. Expression:
  6287.  dc.w 0
  6288.  
  6289.  
  6290. Energy:
  6291.  dc.w 191
  6292. OldEnergy:
  6293.  dc.w 191
  6294. Ammo: dc.w 63
  6295. OldAmmo: dc.w 63
  6296.  
  6297. FullEnergy:
  6298. ; move.w #127,Energy
  6299. ; move.w #127,OldEnergy
  6300. ; move.l #health,a0
  6301. ; move.l #borders,a1
  6302. ; add.l #25*8*2+6,a1
  6303. ; lea 2592(a1),a2
  6304. ; move.w #127,d0
  6305. ;PutInFull:
  6306. ; move.b (a0)+,(a1)
  6307. ; move.b (a0)+,8(a1)
  6308. ; add.w #16,a1
  6309. ; move.b (a0)+,(a2)
  6310. ; move.b (a0)+,8(a2)
  6311. ; add.w #16,a2
  6312. ; dbra d0,PutInFull
  6313.  
  6314.  rts
  6315.  
  6316. ;EnergyBar:
  6317.  
  6318.  move.w Energy,d0
  6319.  bgt.s .noeneg
  6320.  move.w #0,d0
  6321. .noeneg:
  6322.  move.w d0,Energy
  6323.  
  6324.  cmp.w OldEnergy,d0
  6325.  bne.s gottochange
  6326.  
  6327. NoChange
  6328.  rts
  6329.  
  6330. gottochange:
  6331.   
  6332.  blt LessEnergy
  6333.  cmp.w #127,Energy
  6334.  blt.s NotMax
  6335.  move.w #127,Energy
  6336. NotMax:
  6337.  
  6338.  move.w Energy,d0
  6339.  move.w OldEnergy,d2
  6340.  sub.w d0,d2
  6341.  beq.s NoChange    
  6342.  neg.w d2
  6343.  
  6344.  move.w #127,d3
  6345.  sub.w d0,d3
  6346.  
  6347.  move.l #health,a0
  6348.  lea (a0,d3.w*4),a0
  6349. ; move.l #borders+25*16+6,a1
  6350.  lsl.w #4,d3
  6351.  add.w d3,a1
  6352.  lea 2592(a1),a2
  6353.  
  6354. EnergyRise:
  6355.  move.b (a0)+,(a1)
  6356.  move.b (a0)+,8(a1)
  6357.  add.w #16,a1
  6358.  move.b (a0)+,(a2)
  6359.  move.b (a0)+,8(a2)
  6360.  add.w #16,a2
  6361.  subq #1,d2
  6362.  bgt.s EnergyRise
  6363.  
  6364.  move.w Energy,OldEnergy
  6365.  
  6366.  rts 
  6367.  
  6368. LessEnergy: 
  6369.  move.w OldEnergy,d2
  6370.  sub.w d0,d2
  6371.  
  6372.  move.w #127,d3
  6373.  sub.w OldEnergy,d3
  6374.  
  6375. ; move.l #borders+25*16+6,a1
  6376.  asl.w #4,d3
  6377.  add.w d3,a1
  6378.  lea 2592(a1),a2
  6379.  
  6380. EnergyDrain:
  6381.  move.b #0,(a1)
  6382.  move.b #0,8(a1)
  6383.  move.b #0,(a2)
  6384.  move.b #0,8(a2)
  6385.  add.w #16,a1
  6386.  add.w #16,a2
  6387.  subq #1,d2
  6388.  bgt.s EnergyDrain
  6389.  
  6390.  move.w Energy,OldEnergy
  6391.  
  6392.  rts 
  6393.  
  6394. firstdigit: dc.b 0
  6395. secdigit: dc.b 0
  6396. thirddigit: dc.b 0
  6397.  
  6398.  even
  6399.  
  6400. gunny: dc.w 0
  6401.  
  6402. AmmoBar:
  6403.  
  6404. * Do guns first.
  6405.  
  6406.  move.l #borderchars,a4
  6407.  move.b p1_gunselected,d0 
  6408.  move.l #PLAYERONEGUNS,a5
  6409.  cmp.b #'s',mors
  6410.  bne.s .notplr2
  6411.  move.l #PLAYERTWOGUNS,a5
  6412.  move.b p2_gunselected,d0
  6413. .notplr2:
  6414.  
  6415.  move.b d0,gunny
  6416.  
  6417.  move.w #9,d2
  6418.  moveq #0,d0
  6419. putingunnums:
  6420.  move.w #4,d1
  6421.  move.l a4,a0
  6422.  cmp.b gunny,d0
  6423.  bne.s .notsel
  6424.  add.l #5*10*8*2,a0
  6425.  addq #2,a5
  6426.  bra.s .donesel
  6427. .notsel:
  6428.  tst.w (a5)+
  6429.  beq.s .donesel
  6430.  add.l #5*10*8,a0
  6431. .donesel:
  6432.  move.l SCRNDRAWPT,a1
  6433.  add.w d0,a1
  6434.  add.l #3+(240*40),a1
  6435.  bsr DRAWDIGIT
  6436.  addq #1,d0
  6437.  dbra d2,putingunnums
  6438.  
  6439.  move.w Ammo,d0
  6440.  ext.l d0
  6441.  divs #10,d0
  6442.  swap d0
  6443.  move.b d0,thirddigit
  6444.  swap d0
  6445.  ext.l d0
  6446.  divs #10,d0
  6447.  move.b d0,firstdigit
  6448.  swap d0
  6449.  move.b d0,secdigit
  6450.  
  6451.  move.l #borderchars+15*8*10,a0
  6452.  cmp.w #10,Ammo
  6453.  blt.s .notsmallamo
  6454.  add.l #7*8*10,a0
  6455. .notsmallamo:
  6456.  
  6457.  move.l SCRNDRAWPT,a1
  6458.  add.l #20+238*40,a1
  6459.  move.b firstdigit,d0
  6460.  move.w #6,d1
  6461.  bsr DRAWDIGIT
  6462.  
  6463.  move.l SCRNDRAWPT,a1
  6464.  add.l #21+238*40,a1
  6465.  move.b secdigit,d0
  6466.  move.w #6,d1
  6467.  bsr DRAWDIGIT
  6468.  
  6469.  move.l SCRNDRAWPT,a1
  6470.  add.l #22+238*40,a1
  6471.  move.b thirddigit,d0
  6472.  move.w #6,d1
  6473.  bsr DRAWDIGIT
  6474.  
  6475.  rts
  6476.  
  6477. EnergyBar:
  6478.  move.w Energy,d0
  6479.  bge.s .okpo
  6480.  moveq #0,d0 
  6481. .okpo:
  6482.  
  6483.  ext.l d0
  6484.  divs #10,d0
  6485.  swap d0
  6486.  move.b d0,thirddigit
  6487.  swap d0
  6488.  ext.l d0
  6489.  divs #10,d0
  6490.  move.b d0,firstdigit
  6491.  swap d0
  6492.  move.b d0,secdigit
  6493.  
  6494.  move.l #borderchars+15*8*10,a0
  6495.  cmp.w #10,Energy
  6496.  blt.s .notsmallamo
  6497.  add.l #7*8*10,a0
  6498. .notsmallamo:
  6499.  
  6500.  move.l SCRNDRAWPT,a1
  6501.  add.l #34+238*40,a1
  6502.  move.b firstdigit,d0
  6503.  move.w #6,d1
  6504.  bsr DRAWDIGIT
  6505.  
  6506.  move.l SCRNDRAWPT,a1
  6507.  add.l #35+238*40,a1
  6508.  move.b secdigit,d0
  6509.  move.w #6,d1
  6510.  bsr DRAWDIGIT
  6511.  
  6512.  move.l SCRNDRAWPT,a1
  6513.  add.l #36+238*40,a1
  6514.  move.b thirddigit,d0
  6515.  move.w #6,d1
  6516.  bsr DRAWDIGIT
  6517.  
  6518.  move.l SCRNSHOWPT,a1
  6519.  add.l #34+238*40,a1
  6520.  move.b firstdigit,d0
  6521.  move.w #6,d1
  6522.  bsr DRAWDIGIT
  6523.  
  6524.  move.l SCRNSHOWPT,a1
  6525.  add.l #35+238*40,a1
  6526.  move.b secdigit,d0
  6527.  move.w #6,d1
  6528.  bsr DRAWDIGIT
  6529.  
  6530.  move.l SCRNSHOWPT,a1
  6531.  add.l #36+238*40,a1
  6532.  move.b thirddigit,d0
  6533.  move.w #6,d1
  6534.  bsr DRAWDIGIT
  6535.  
  6536.  
  6537.  rts
  6538.  
  6539.  
  6540. DRAWDIGIT:
  6541.  ext.w d0
  6542.  lea (a0,d0.w),a2
  6543. charlines:
  6544.  lea 30720(a1),a3 
  6545.  move.b (a2),(a1)
  6546.  move.b 10(a2),10240(a1)
  6547.  move.b 20(a2),20480(a1)
  6548.  move.b 30(a2),(a3)
  6549.  move.b 40(a2),10240(a3)
  6550.  move.b 50(a2),20480(a3)
  6551.  lea 30720(a3),a3
  6552.  move.b 60(a2),(a3)
  6553.  move.b 70(a2),10240(a3)
  6554.  
  6555.  add.w #10*8,a2
  6556.  add.w #40,a1
  6557.  dbra d1,charlines
  6558.  
  6559.  rts
  6560.  
  6561. borderchars: incbin "ab3:includes/bordercharsRAW"
  6562.  
  6563. NARRATOR:
  6564.  
  6565. ; sub.w #1,NARRTIME
  6566. ; bge .NOCHARYET
  6567. ; move.w #3,NARRTIME
  6568.  
  6569.  move.l #SCROLLSCRN,d1
  6570.  move.w d1,scroll
  6571.  swap d1
  6572.  move.w d1,scrolh
  6573.  
  6574.  move.w SCROLLTIMER,d0
  6575.  subq #1,d0
  6576.  move.w d0,SCROLLTIMER
  6577.  cmp.w #40,d0
  6578.  bge .NOCHARYET
  6579.  tst.w d0
  6580.  bge.s .okcha
  6581.  
  6582.  move.w #150,SCROLLTIMER
  6583.  bra .NOCHARYET
  6584.  
  6585. .okcha:
  6586.  
  6587.  move.l #SCROLLSCRN,a0
  6588.  add.w SCROLLXPOS,a0
  6589.  
  6590.  moveq #1,d7
  6591. .doachar: 
  6592.  
  6593.  move.l SCROLLPOINTER,a1
  6594.  moveq #0,d1
  6595.  move.b (a1)+,d1    ; character
  6596.  move.l a1,d2
  6597.  cmp.l ENDSCROLL,d2
  6598.  blt.s .notrestartscroll
  6599.  move.l #BLANKSCROLL,a1
  6600.  move.l #BLANKSCROLL+80,ENDSCROLL
  6601. .notrestartscroll
  6602.  move.l a1,SCROLLPOINTER
  6603.  
  6604.  move.l #SCROLLCHARS,a1
  6605.  asl.w #3,d1
  6606.  add.w d1,a1
  6607.  
  6608.  move.b (a1)+,(a0)
  6609.  move.b (a1)+,80(a0)
  6610.  move.b (a1)+,80*2(a0)
  6611.  move.b (a1)+,80*3(a0)
  6612.  move.b (a1)+,80*4(a0)
  6613.  move.b (a1)+,80*5(a0)
  6614.  move.b (a1)+,80*6(a0)
  6615.  move.b (a1)+,80*7(a0)
  6616.  
  6617.  addq #1,a0
  6618.  dbra d7,.doachar
  6619.  
  6620.  move.w SCROLLXPOS,d0
  6621.  addq #2,d0
  6622.  move.w d0,SCROLLXPOS
  6623.  cmp.w #80,d0
  6624.  blt .NOCHARYET
  6625.  move.w #0,SCROLLXPOS
  6626.  
  6627. .NOCHARYET:
  6628.  rts
  6629.  
  6630. ; cmp.w OldAmmo,d0
  6631. ; bne.s .gottochange
  6632. ; 
  6633.  
  6634. NARRTIME: dc.w 5
  6635.  
  6636. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  6637.  
  6638. .NoChange
  6639.  rts
  6640.  
  6641. .gottochange:
  6642.   
  6643.  blt LessAmmo
  6644.  cmp.w #63,Ammo
  6645.  blt.s .NotMax
  6646.  move.w #63,Ammo
  6647. .NotMax:
  6648.  
  6649.  move.w Ammo,d0
  6650.  move.w OldAmmo,d2
  6651.  sub.w d0,d2
  6652.  beq.s .NoChange
  6653.  neg.w d2
  6654.  
  6655.  move.w #63,d3
  6656.  sub.w d0,d3
  6657.  
  6658.  move.l #Ammunition,a0
  6659.  lea (a0,d3.w*8),a0
  6660. ; move.l #borders+5184+25*16+1,a1
  6661.  lsl.w #5,d3
  6662.  add.w d3,a1
  6663.  lea 2592(a1),a2
  6664.  
  6665. AmmoRise:
  6666.  move.b (a0)+,(a1)
  6667.  move.b (a0)+,8(a1)
  6668.  add.w #16,a1
  6669.  move.b (a0)+,(a2)
  6670.  move.b (a0)+,8(a2)
  6671.  add.w #16,a2
  6672.  move.b (a0)+,(a1)
  6673.  move.b (a0)+,8(a1)
  6674.  add.w #16,a1
  6675.  move.b (a0)+,(a2)
  6676.  move.b (a0)+,8(a2)
  6677.  add.w #16,a2
  6678.  subq #1,d2
  6679.  bgt.s AmmoRise
  6680.  
  6681.  move.w Ammo,OldAmmo
  6682.  
  6683.  rts 
  6684.  
  6685.  
  6686. LessAmmo: 
  6687.  move.w OldAmmo,d2
  6688.  sub.w d0,d2
  6689.  
  6690.  move.w #63,d3
  6691.  sub.w OldAmmo,d3
  6692.  
  6693. ; move.l #borders++5184+25*16+1,a1
  6694.  asl.w #5,d3
  6695.  add.w d3,a1
  6696.  lea 2592(a1),a2
  6697.  
  6698. AmmoDrain:
  6699.  move.b #0,(a1)
  6700.  move.b #0,8(a1)
  6701.  move.b #0,(a2)
  6702.  move.b #0,8(a2)
  6703.  add.w #16,a1
  6704.  add.w #16,a2
  6705.  move.b #0,(a1)
  6706.  move.b #0,8(a1)
  6707.  move.b #0,(a2)
  6708.  move.b #0,8(a2)
  6709.  add.w #16,a1
  6710.  add.w #16,a2
  6711.  subq #1,d2
  6712.  bgt.s AmmoDrain
  6713.  
  6714.  move.w Ammo,OldAmmo
  6715.  
  6716.  rts 
  6717.  
  6718. nulop:
  6719.  move.w #$0010,$dff000+intreq
  6720.  rte
  6721.  
  6722. doanything: dc.w 0
  6723.  
  6724. end:
  6725. ;     _break #0
  6726.  
  6727.  
  6728.  move.l #$dff000,a6
  6729.  move.w #$f,$dff000+dmacon
  6730. waitfortop22:
  6731.  btst.b #0,intreqrl(a6)
  6732.  beq waitfortop22
  6733. waitfortop222:
  6734.  btst.b #0,intreqrl(a6)
  6735.  beq waitfortop222
  6736.  
  6737.  clr.b dosounds
  6738.  clr.b doanything
  6739.  
  6740.  move.w PLAYERONEHEALTH,Energy
  6741.  cmp.b #'s',mors
  6742.  bne.s .notsl
  6743.  move.w PLAYERTWOHEALTH,Energy
  6744. .notsl:
  6745.  
  6746.  move.l drawpt,d0
  6747.  move.l olddrawpt,drawpt
  6748.  move.l d0,olddrawpt
  6749.  
  6750. ; cmp.b #'b',Prefsfile+3
  6751. ; bne.s .noback
  6752. ; jsr mt_end
  6753. ;.noback
  6754.  
  6755.  tst.w Energy
  6756.  bgt.s wevewon
  6757.  move.w #0,Energy
  6758.  bsr EnergyBar
  6759.  
  6760.  move.l #gameover,mt_data
  6761.  st UseAllChannels
  6762.  clr.b reachedend
  6763.  jsr mt_init
  6764. playgameover:
  6765.  move.l #$dff000,a6
  6766. waitfortop2:
  6767.  
  6768.     
  6769.  btst.b #0,intreqrl(a6)
  6770.  beq waitfortop2
  6771.  move.w #$1,intreq(a6)
  6772.  
  6773.     
  6774.  jsr mt_music
  6775.  
  6776.  
  6777.     
  6778.  tst.b reachedend
  6779.  beq.s playgameover
  6780.  
  6781.  bra wevelost
  6782.  
  6783.  
  6784. wevewon:
  6785.  
  6786.  
  6787.  bsr EnergyBar
  6788.  
  6789.  cmp.b #'n',mors
  6790.  bne.s .nonextlev
  6791.  add.w #1,MAXLEVEL
  6792.  st FINISHEDLEVEL
  6793. .nonextlev:
  6794.  
  6795.  move.l #welldone,mt_data
  6796.  st UseAllChannels
  6797.  clr.b reachedend
  6798.  
  6799.  jsr mt_init
  6800. playwelldone:
  6801.  move.l #$dff000,a6
  6802. waitfortop3:
  6803.  btst.b #0,intreqrl(a6)
  6804.  beq waitfortop3
  6805.  move.w #$1,intreq(a6)
  6806.  
  6807.  jsr mt_music
  6808.  
  6809.  tst.b reachedend
  6810.  beq.s playwelldone
  6811.  
  6812. wevelost:
  6813.  
  6814.  PROTICHECK a0
  6815.  
  6816.  jmp closeeverything 
  6817.  
  6818. endnomusic
  6819.  clr.b doanything
  6820.  
  6821. ; cmp.b #'b',Prefsfile+3
  6822. ; bne.s .noback
  6823. ; jsr mt_end
  6824. ;.noback
  6825. *******************************
  6826. ; cmp.b #'n',mors
  6827. ; bne.s .nonextlev
  6828. ; cmp.w #15,MAXLEVEL
  6829. ; bge.s .nonextlev
  6830. ; add.w #1,MAXLEVEL
  6831. ; st FINISHEDLEVEL
  6832. ;.nonextlev:
  6833. ******************************
  6834.  
  6835.  jmp closeeverything
  6836.  
  6837. do32:
  6838.  move.w #31,d7
  6839.  move.w #$180,d1
  6840. across:
  6841.  move.w d1,(a1)+
  6842.  move.w d1,(a3)+
  6843.  move.w #0,(a1)+ 
  6844.  move.w #0,(a3)+
  6845.  add.w #2,d1
  6846.  dbra d7,across
  6847.  rts
  6848.  
  6849. string:
  6850.     dc.b    'credits',0
  6851.  
  6852. ENDGAMESCROLL:
  6853.  
  6854.     move.l    4.w,a6
  6855.     move.l    #string,d1
  6856.     moveq    #0,d2
  6857.     moveq    #0,d3
  6858.     jsr    _LVOExecute(a6)
  6859.  
  6860. ; include "endscroll.s"
  6861.  
  6862. ***********************************
  6863.  include "ab3:source_4000/CD32JOY"
  6864.  
  6865.  
  6866.  
  6867. *************************************
  6868. * Set left and right clip values
  6869. *************************************
  6870.  
  6871.  
  6872.  
  6873. NEWsetlclip:
  6874.  move.l #OnScreen,a1
  6875.  move.l #Rotated,a2
  6876.  move.l CONNECT_TABLE,a3
  6877.  move.l Points,a4
  6878.  
  6879.  move.w (a0),d0
  6880.  bge.s .notignoreleft
  6881.  
  6882. ; move.l #0,(a6)
  6883.  
  6884.  bra .leftnotoktoclip
  6885. .notignoreleft:
  6886.  
  6887.  move.w 6(a2,d0*8),d3    ; left z val
  6888.  bgt.s .leftclipinfront
  6889.  addq #2,a0
  6890.  rts
  6891.  
  6892.  tst.w 6(a2,d0*8)
  6893.  bgt.s .leftnotoktoclip
  6894. .ignoreboth:
  6895. ; move.l #0,(a6)
  6896. ; move.l #96*65536,4(a6)
  6897.  move.w #0,leftclip
  6898.  move.w RIGHTX,rightclip
  6899.  addq #8,a6
  6900.  addq #2,a0
  6901.  rts
  6902.  
  6903. .leftclipinfront:
  6904.  move.w (a1,d0*2),d1    ; left x on screen
  6905.  move.w (a0),d2
  6906.  move.w 2(a3,d2.w*4),d2
  6907.  move.w (a1,d2.w*2),d2
  6908.  cmp.w d1,d2
  6909.  bgt.s .leftnotoktoclip
  6910.  
  6911.  
  6912. *************************************
  6913.  
  6914.  move.w 2(a3,d0.w*4),d6
  6915.  
  6916.  move.w (a4,d0.w*4),d2
  6917.  move.w 2(a4,d0.w*4),d3
  6918.  move.w (a4,d6.w*4),d4
  6919.  move.w 2(a4,d6.w*4),d5
  6920.  
  6921.  sub.w d2,d4    ;dx
  6922.  sub.w d3,d5    ;dz
  6923.  move.w xoff,d0
  6924.  move.w zoff,d6
  6925.  
  6926.  sub.w d2,d0
  6927.  sub.w d3,d6
  6928.  
  6929.  muls d0,d4
  6930.  muls d6,d5
  6931.  add.l d4,d5
  6932.  bge.s .leftnotoktoclip
  6933.  
  6934. *************************************
  6935.  
  6936.  
  6937.  
  6938. ; move.w d1,(a6)
  6939. ; move.w d3,2(a6)
  6940.  cmp.w leftclip,d1
  6941.  ble.s .leftnotoktoclip
  6942.  move.w d1,leftclip
  6943. .leftnotoktoclip:
  6944.  
  6945.  addq #2,a0
  6946.  
  6947.  rts
  6948.  
  6949. NEWsetrclip
  6950.  move.l #OnScreen,a1
  6951.  move.l #Rotated,a2
  6952.  move.l CONNECT_TABLE,a3
  6953.  move.w (a0),d0
  6954.  bge.s .notignoreright
  6955. ; move.w #96,4(a6)
  6956. ; move.w #0,6(a6)
  6957.  move.w #0,d4
  6958.  bra .rightnotoktoclip
  6959. .notignoreright:
  6960.  move.w 6(a2,d0*8),d4    ; right z val
  6961.  bgt.s .rightclipinfront
  6962. ; move.w #96,4(a6)
  6963. ; move.w #0,6(a6)
  6964.  bra.s .rightnotoktoclip
  6965.  
  6966. .rightclipinfront:
  6967.  move.w (a1,d0*2),d1    ; right x on screen
  6968.  move.w (a0),d2
  6969.  move.w (a3,d2.w*4),d2
  6970.  move.w (a1,d2.w*2),d2
  6971.  cmp.w d1,d2
  6972.  blt.s .rightnotoktoclip
  6973. ; move.w d1,4(a6)
  6974. ; move.w d4,6(a6)
  6975.  
  6976.  
  6977. *************************************
  6978.  
  6979.  move.w (a3,d0.w*4),d6
  6980.  
  6981.  move.w (a4,d0.w*4),d2
  6982.  move.w 2(a4,d0.w*4),d3
  6983.  move.w (a4,d6.w*4),d4
  6984.  move.w 2(a4,d6.w*4),d5
  6985.  
  6986.  sub.w d2,d4    ;dx
  6987.  sub.w d3,d5    ;dz
  6988.  move.w xoff,d0
  6989.  move.w zoff,d6
  6990.  
  6991.  sub.w d2,d0
  6992.  sub.w d3,d6
  6993.  
  6994.  muls d0,d4
  6995.  muls d6,d5
  6996.  add.l d4,d5
  6997.  ble.s .rightnotoktoclip
  6998.  
  6999. *************************************
  7000.  
  7001.  
  7002.  
  7003.  cmp.w rightclip,d1
  7004.  bge.s .rightnotoktoclip
  7005.  addq #1,d1
  7006.  move.w d1,rightclip
  7007. .rightnotoktoclip:
  7008.  addq #8,a6
  7009.  addq #2,a0
  7010.  rts
  7011.  
  7012. FIRSTsetlrclip:
  7013.  move.l #OnScreen,a1
  7014.  move.l #Rotated,a2
  7015.  
  7016.  move.w (a0)+,d0
  7017.  bge.s .notignoreleft
  7018.  bra .leftnotoktoclip
  7019. .notignoreleft:
  7020.  
  7021.  move.w 6(a2,d0*8),d3    ; left z val
  7022.  bgt.s .leftclipinfront
  7023.  
  7024.  move.w (a0),d0
  7025.  blt.s .ignoreboth
  7026.  tst.w 6(a2,d0*8)
  7027.  bgt.s .leftnotoktoclip
  7028. .ignoreboth
  7029.  move.w RIGHTX,rightclip
  7030.  move.w #0,leftclip
  7031.  addq #2,a0
  7032.  rts
  7033.  
  7034. .leftclipinfront:
  7035.  move.w (a1,d0*2),d1    ; left x on screen
  7036.  cmp.w leftclip,d1
  7037.  ble.s .leftnotoktoclip
  7038.  move.w d1,leftclip
  7039. .leftnotoktoclip:
  7040.  
  7041.  move.w (a0)+,d0
  7042.  bge.s .notignoreright
  7043.  move.w #0,d4
  7044.  bra .rightnotoktoclip
  7045. .notignoreright:
  7046.  move.w 6(a2,d0*8),d4    ; right z val
  7047.  ble.s .rightnotoktoclip
  7048.  
  7049. .rightclipinfront:
  7050.  move.w (a1,d0*2),d1    ; right x on screen
  7051.  addq #1,d1
  7052.  cmp.w rightclip,d1
  7053.  bge.s .rightnotoktoclip
  7054.  move.w d1,rightclip
  7055. .rightnotoktoclip:
  7056.  
  7057. ; move.w leftclip,d0
  7058. ; move.w rightclip,d1
  7059. ; cmp.w d0,d1
  7060. ; bge.s .noswap
  7061. ; move.w #192,rightclip
  7062. ; move.w #0,leftclip
  7063. ;.noswap:
  7064.  
  7065.  rts
  7066.  
  7067.  
  7068. leftclip2: dc.w 0
  7069. rightclip2: dc.w 0
  7070. ZoneBright: dc.w 0
  7071.  
  7072. npolys: dc.w 0
  7073.  
  7074. PLR1_fire: dc.b 0
  7075. PLR2_fire: dc.b 0
  7076.  
  7077. *****************************************************
  7078.  
  7079.  
  7080. pastdata:
  7081. ***********************************
  7082. * This routine animates brightnesses.
  7083.  
  7084.  
  7085. liftpt: dc.l liftanimtab
  7086.  
  7087. brightpt:
  7088.  dc.l brightanimtab
  7089.  
  7090.  
  7091. liftanim:
  7092.  rts
  7093.  
  7094. ******************************
  7095.  include "ab3:source_4000/ObjectMove"
  7096.  include "ab3:source_4000/newAnims"
  7097.  include "ab3:source_4000/airoutine.s"
  7098. ******************************
  7099. startpass:
  7100. ; include "ab3:source_4000/password_reloc.s"
  7101. endpass:
  7102.  
  7103. rotanimpt: dc.w 0
  7104. xradd: dc.w 5
  7105. yradd: dc.w 8
  7106. xrpos: dc.w 320
  7107. yrpos: dc.w 320
  7108.  
  7109. rotanim:
  7110.  rts
  7111.  
  7112. option:
  7113.  dc.l 0,0
  7114.  
  7115. ********** WALL STUFF *******************************
  7116.  
  7117.  include "AB3:source_4000/hireswall.s"
  7118.  include "AB3:source_4000/hiresgourwall.s"
  7119.  
  7120. *****************************************************
  7121.  
  7122. ******************************************
  7123. * floor polygon
  7124.  
  7125. numsidestd: dc.w 0
  7126. bottomline: dc.w 0
  7127.  
  7128. checkforwater:
  7129.  tst.b usewater
  7130.  beq.s .notwater
  7131.  
  7132.  move.l Roompt,a1
  7133.  move.w (a1),d7
  7134.  cmp.w currzone,d7
  7135.  bne.s .notwater
  7136.  
  7137.  move.b #$f,fillscrnwater
  7138.  
  7139. .notwater:
  7140.  move.w (a0)+,d6    ; sides-1
  7141.  add.w d6,d6
  7142.  add.w d6,a0
  7143.  add.w #4+6,a0
  7144.  rts
  7145.  
  7146.  rts
  7147.  
  7148. ;NewCornerBuff:
  7149. ; ds.l 100
  7150. CLRNOFLOOR: dc.w 0
  7151.  
  7152. itsafloordraw:
  7153.  
  7154. * If D0 =1 then its a floor otherwise (=2) it's
  7155. * a roof.
  7156.  
  7157.  move.w #0,above
  7158.  move.w (a0)+,d6    ; ypos of poly
  7159.  
  7160.  tst.b usewater
  7161.  beq.s .oknon
  7162.  tst.b DOANYWATER
  7163.  beq dontdrawreturn
  7164. .oknon
  7165.  
  7166.  move.w d6,d7
  7167.  ext.l d7
  7168.  asl.l #6,d7
  7169.  cmp.l TOPOFROOM,d7
  7170.  blt checkforwater
  7171.  cmp.l BOTOFROOM,d7
  7172.  bgt.s dontdrawreturn
  7173.  
  7174.  move.w leftclip,d7
  7175.  cmp.w rightclip,d7
  7176.  bge.s dontdrawreturn
  7177.  
  7178.  sub.w flooryoff,d6
  7179.  bgt.s below
  7180.  blt.s aboveplayer
  7181.  
  7182.  tst.b usewater
  7183.  beq.s .notwater
  7184.  
  7185.  move.l Roompt,a1
  7186.  move.w (a1),d7
  7187.  cmp.w currzone,d7
  7188.  
  7189.  bne.s .notwater
  7190.  
  7191.  st fillscrnwater
  7192.  
  7193. .notwater:
  7194.  
  7195.  
  7196. dontdrawreturn:
  7197.  move.w (a0)+,d6    ; sides-1
  7198.  add.w d6,d6
  7199.  add.w d6,a0
  7200.  add.w #4+6,a0
  7201.  rts
  7202. aboveplayer:
  7203.  
  7204.  tst.b usewater
  7205.  beq.s .notwater
  7206.  
  7207.  move.l Roompt,a1
  7208.  move.w (a1),d7
  7209.  cmp.w currzone,d7
  7210.  bne.s .notwater
  7211.  
  7212.  move.b #$f,fillscrnwater
  7213.  
  7214. .notwater:
  7215.  
  7216.  btst #1,d0
  7217.  beq.s dontdrawreturn
  7218.  move.w MIDDLEY,d7
  7219.  sub.w topclip,d7 
  7220.  ble.s dontdrawreturn
  7221.  move.w #1,d0
  7222.  move.w d0,above
  7223.  neg.w d6
  7224.  bra.s notbelow
  7225. below:
  7226.  move.w botclip,d7
  7227.  sub.w MIDDLEY,d7
  7228.  ble.s dontdrawreturn
  7229. notbelow:
  7230.  btst #0,d0
  7231.  beq.s dontdrawreturn
  7232.  move.w d6,distaddr
  7233.  muls #64,d6
  7234.  move.l d6,ypos
  7235.  ext.l d7
  7236.  divs.l d7,d6        ; zpos of bottom
  7237.             ; visible line
  7238.  
  7239.  beq dontdrawreturn
  7240.  
  7241.  cmp.l #32767,d6
  7242.  bgt dontdrawreturn
  7243.             
  7244.  move.w d6,minz
  7245.  move.w d7,bottomline
  7246.  
  7247. ; Go round each point finding out
  7248. ; if it should be visible or not.
  7249.  
  7250.  move.l a0,-(a7)
  7251.  
  7252.  move.w (a0)+,d7    ; number of sides
  7253.  move.l #Rotated,a1
  7254.  move.l #OnScreen,a2
  7255. ; move.l #NewCornerBuff,a3
  7256.  moveq #0,d4
  7257.  moveq #0,d5
  7258.  moveq #0,d6
  7259.  clr.b anyclipping
  7260.  
  7261. cornerprocessloop:
  7262.  
  7263.  move.w (a0)+,d0
  7264.  and.w #$fff,d0
  7265.  move.w 6(a1,d0.w*8),d1
  7266.  ble  .canttell
  7267.  
  7268.  move.w (a2,d0.w*2),d3
  7269.  cmp.w leftclip,d3
  7270.  bgt.s .nol
  7271.  st d4
  7272.  st anyclipping
  7273.  bra.s .nos
  7274. .nol:
  7275.  cmp.w rightclip,d3
  7276.  blt.s .nor
  7277.  st d6
  7278.  st anyclipping
  7279.  bra.s .nos
  7280. .nor:
  7281.  st d5
  7282. .nos:
  7283.  bra .cantell
  7284.  
  7285. .canttell:
  7286.  st d5
  7287.  st anyclipping
  7288.  
  7289. .cantell:
  7290.  
  7291.  
  7292.  dbra d7,cornerprocessloop
  7293.  
  7294.  
  7295.  move.l (a7)+,a0
  7296.  tst.b d5
  7297.  bne.s somefloortodraw
  7298.  eor.b d4,d6
  7299.  bne dontdrawreturn
  7300.  
  7301. somefloortodraw:
  7302.  
  7303.  tst.b gourfloor
  7304.  bne goursides
  7305.  
  7306.  move.w #300,top
  7307.  move.w #-1,bottom
  7308.  move.w #0,drawit
  7309.  move.l #Rotated,a1
  7310.  move.l #OnScreen,a2
  7311.  move.w (a0)+,d7    ; no of sides
  7312. sideloop:
  7313.  move.w minz,d6
  7314.  move.w (a0)+,d1
  7315.  move.w (a0),d3
  7316.  and.w #$fff,d1
  7317.  and.w #$fff,d3
  7318.  
  7319.  move.w 6(a1,d1*8),d4    ;first z
  7320.  cmp.w d6,d4
  7321.  bgt firstinfront
  7322.  move.w 6(a1,d3*8),d5    ; sec z
  7323.  cmp.w d6,d5
  7324.  ble bothbehind
  7325. ** line must be on left and partially behind.
  7326.  sub.w d5,d4
  7327.  move.l (a1,d1*8),d0
  7328.  sub.l (a1,d3*8),d0
  7329.  asr.l #7,d0
  7330.  sub.w d5,d6
  7331.  muls d6,d0    ; new x coord
  7332.  divs d4,d0
  7333.  ext.l d0
  7334.  asl.l #7,d0
  7335.  
  7336.  add.l (a1,d3*8),d0
  7337.  move.w minz,d4
  7338.  move.w (a2,d3*2),d2
  7339.  divs d4,d0
  7340.  add.w MIDDLEX,d0
  7341.  move.l ypos,d3
  7342.  divs d5,d3
  7343.  move.w bottomline,d1 
  7344.  bra lineclipped
  7345.  
  7346. firstinfront:
  7347.  move.w 6(a1,d3*8),d5    ; sec z
  7348.  cmp.w d6,d5
  7349.  bgt bothinfront
  7350. ** line must be on right and partially behind.
  7351.  sub.w d4,d5    ; dz
  7352.  move.l (a1,d3*8),d2
  7353.  sub.l (a1,d1*8),d2    ; dx
  7354.  sub.w d4,d6
  7355.  asr.l #7,d2
  7356.  muls d6,d2    ; new x coord
  7357.  divs d5,d2
  7358.  ext.l d2
  7359.  asl.l #7,d2
  7360.  add.l (a1,d1*8),d2
  7361.  move.w minz,d5
  7362.  move.w (a2,d1*2),d0
  7363.  divs d5,d2
  7364.  add.w MIDDLEX,d2
  7365.  move.l ypos,d1
  7366.  divs d4,d1
  7367.  move.w bottomline,d3 
  7368.  bra lineclipped
  7369.  
  7370. bothinfront:
  7371.  
  7372. * Also, usefully enough, both are on-screen
  7373. * so no bottom clipping is needed.
  7374.  
  7375.  move.w (a2,d1*2),d0    ; first x
  7376.  move.w (a2,d3*2),d2    ; second x
  7377.  move.l ypos,d1
  7378.  move.l d1,d3
  7379.  divs d4,d1        ; first y
  7380.  divs d5,d3        ; second y
  7381. lineclipped:
  7382.  move.l #rightsidetab,a3
  7383.  cmp.w d1,d3
  7384.  beq lineflat
  7385.  st drawit
  7386.  bgt lineonright
  7387.  move.l #leftsidetab,a3
  7388.  exg d1,d3
  7389.  exg d0,d2
  7390.  
  7391.  lea (a3,d1*2),a3
  7392.  
  7393.  cmp.w top(pc),d1
  7394.  bge.s .nonewtop
  7395.  move.w d1,top
  7396. .nonewtop:
  7397.  cmp.w bottom(pc),d3
  7398.  ble.s .nonewbot
  7399.  move.w d3,bottom
  7400. .nonewbot:
  7401.  
  7402.  sub.w d1,d3    ; dy
  7403.  sub.w d0,d2    ; dx
  7404.  
  7405.  blt .linegoingleft
  7406.  
  7407.  ext.l d2
  7408.  divs d3,d2
  7409.  move.w d2,d6
  7410.  swap d2
  7411.  
  7412. ; moveq #0,d6
  7413. ; sub.w d3,d2
  7414. ; blt.s .noco
  7415. ;.makeco
  7416. ; addq #1,d6
  7417. ; sub.w d3,d2
  7418. ; bge.s .makeco
  7419. ;.noco
  7420. ; add.w d3,d2
  7421.  
  7422.  move.w d3,d4
  7423.  move.w d3,d5
  7424.  subq #1,d5
  7425.  move.w d6,d1
  7426.  addq #1,d1
  7427.  
  7428. .pixlopright:
  7429.  move.w d0,(a3)+
  7430.  sub.w d2,d4
  7431.  bge.s .nobigstep
  7432.  add.w d1,d0
  7433.  add.w d3,d4
  7434.  dbra d5,.pixlopright
  7435.  bra lineflat
  7436. .nobigstep
  7437.  add.w d6,d0
  7438.  dbra d5,.pixlopright
  7439.  bra lineflat
  7440.  
  7441. .linegoingleft:
  7442.  
  7443.  neg.w d2
  7444.  
  7445.  ext.l d2
  7446.  divs d3,d2
  7447.  move.w d2,d6
  7448.  swap d2
  7449.  
  7450.  
  7451. ; moveq #0,d6
  7452. ; sub.w d3,d2
  7453. ; blt.s .nocol
  7454. ;.makecol
  7455. ; addq #1,d6
  7456. ; sub.w d3,d2
  7457. ; bge.s .makecol
  7458. ;.nocol
  7459. ; add.w d3,d2
  7460.  
  7461.  
  7462.  
  7463.  move.w d3,d4
  7464.  move.w d3,d5
  7465.  subq #1,d5
  7466.  
  7467.  move.w d6,d1
  7468.  addq #1,d1
  7469.  
  7470. .pixlopleft:
  7471.  sub.w d2,d4
  7472.  bge.s .nobigstepl
  7473.  sub.w d1,d0
  7474.  add.w d3,d4
  7475.  move.w d0,(a3)+
  7476.  dbra d5,.pixlopleft
  7477.  bra lineflat
  7478.  
  7479. .nobigstepl
  7480.  sub.w d6,d0
  7481.  move.w d0,(a3)+
  7482.  dbra d5,.pixlopleft
  7483.  bra lineflat
  7484.  
  7485. lineonright:
  7486.  
  7487.  lea (a3,d1*2),a3
  7488.  
  7489.  cmp.w top(pc),d1
  7490.  bge.s .nonewtop
  7491.  move.w d1,top
  7492. .nonewtop:
  7493.  cmp.w bottom(pc),d3
  7494.  ble.s .nonewbot
  7495.  move.w d3,bottom
  7496. .nonewbot:
  7497.  
  7498.  sub.w d1,d3    ; dy
  7499.  sub.w d0,d2    ; dx
  7500.  blt .linegoingleft
  7501. ; addq #1,d0
  7502.  ext.l d2
  7503.  divs d3,d2
  7504.  move.w d2,d6
  7505.  swap d2
  7506.  
  7507. ; moveq #0,d6
  7508. ; sub.w d3,d2
  7509. ; blt.s .noco
  7510. ;.makeco
  7511. ; addq #1,d6
  7512. ; sub.w d3,d2
  7513. ; bge.s .makeco
  7514. ;.noco
  7515. ; add.w d3,d2
  7516.  
  7517.  move.w d3,d4
  7518.  move.w d3,d5
  7519.  subq #1,d5
  7520.  move.w d6,d1
  7521.  addq #1,d1
  7522.  
  7523. .pixlopright:
  7524.  sub.w d2,d4
  7525.  bge.s .nobigstep
  7526.  add.w d1,d0
  7527.  add.w d3,d4
  7528.  move.w d0,(a3)+
  7529.  dbra d5,.pixlopright
  7530.  bra lineflat
  7531.  
  7532. .nobigstep
  7533.  add.w d6,d0
  7534.  move.w d0,(a3)+
  7535.  dbra d5,.pixlopright
  7536.  bra lineflat
  7537.  
  7538. .linegoingleft:
  7539. ; addq #1,d0
  7540.  neg.w d2
  7541.  
  7542.  ext.l d2
  7543.  divs d3,d2
  7544.  move.w d2,d6
  7545.  swap d2
  7546.  
  7547.  
  7548. ; moveq #0,d6
  7549. ; sub.w d3,d2
  7550. ; blt.s .nocol
  7551. ;.makecol
  7552. ; addq #1,d6
  7553. ; sub.w d3,d2
  7554. ; bge.s .makecol
  7555. ;.nocol
  7556. ; add.w d3,d2
  7557.  
  7558.  move.w d3,d4
  7559.  move.w d3,d5
  7560.  subq #1,d5
  7561.  move.w d6,d1
  7562.  addq #1,d1
  7563.  
  7564. .pixlopleft:
  7565.  move.w d0,(a3)+
  7566.  sub.w d2,d4
  7567.  bge.s .nobigstepl
  7568.  sub.w d1,d0
  7569.  add.w d3,d4
  7570.  dbra d5,.pixlopleft
  7571.  bra lineflat
  7572.  
  7573. .nobigstepl
  7574.  sub.w d6,d0
  7575.  dbra d5,.pixlopleft
  7576.  
  7577. lineflat:
  7578.  
  7579. bothbehind:
  7580.  dbra d7,sideloop
  7581.  bra pastsides
  7582.  
  7583. fbr: dc.w 0
  7584. sbr: dc.w 0
  7585. FloorPtBrights: dc.l 0
  7586.  
  7587. goursides:
  7588.  
  7589.  move.w #300,top
  7590.  move.w #-1,bottom
  7591.  move.w #0,drawit
  7592.  move.l #Rotated,a1
  7593.  move.l #OnScreen,a2
  7594.  move.w (a0)+,d7    ; no of sides
  7595. sideloopGOUR:
  7596.  move.w minz,d6
  7597.  move.w (a0)+,d1
  7598.  move.w (a0),d3
  7599.  
  7600.  move.w d1,d4
  7601.  move.w d3,d5
  7602.  and.w #$0fff,d1
  7603.  and.w #$0fff,d3
  7604.  
  7605.  rol.w #4,d4
  7606.  rol.w #4,d5
  7607.  and.w #$f,d4
  7608.  and.w #$f,d5
  7609.  
  7610.  move.l FloorPtBrights,a4
  7611.  move.w (a4,d4.w*8),d4
  7612.  bge.s .okpos1
  7613.  neg.w d4
  7614. .okpos1:
  7615.  sub.w #300,d4
  7616.  move.w d4,fbr
  7617.  move.w (a4,d5.w*8),d4
  7618.  bge.s .okpos2
  7619.  neg.w d4
  7620. .okpos2:
  7621.  sub.w #300,d4
  7622.  move.w d4,sbr
  7623.  
  7624.  move.w 6(a1,d1*8),d4    ;first z
  7625.  cmp.w d6,d4
  7626.  bgt firstinfrontGOUR
  7627.  move.w 6(a1,d3*8),d5    ; sec z
  7628.  cmp.w d6,d5
  7629.  ble bothbehindGOUR
  7630. ** line must be on left and partially behind.
  7631.  sub.w d5,d4
  7632.  
  7633.  move.w fbr,d0
  7634.  sub.w sbr,d0
  7635.  sub.w d5,d6
  7636.  muls d6,d0
  7637.  divs d4,d0
  7638.  add.w sbr,d0
  7639.  move.w d0,fbr
  7640.  
  7641.  move.l (a1,d1*8),d0
  7642.  sub.l (a1,d3*8),d0
  7643.  asr.l #7,d0
  7644.  muls d6,d0    ; new x coord
  7645.  divs d4,d0
  7646.  ext.l d0
  7647.  asl.l #7,d0
  7648.  
  7649.  add.l (a1,d3*8),d0
  7650.  move.w minz,d4
  7651.  move.w (a2,d3*2),d2
  7652.  divs d4,d0
  7653.  add.w MIDDLEX,d0
  7654.  move.l ypos,d3
  7655.  divs d5,d3
  7656.  
  7657.  move.w bottomline,d1 
  7658.  bra lineclippedGOUR
  7659.  
  7660. firstinfrontGOUR:
  7661.  move.w 6(a1,d3*8),d5    ; sec z
  7662.  cmp.w d6,d5
  7663.  bgt bothinfrontGOUR
  7664. ** line must be on right and partially behind.
  7665.  sub.w d4,d5    ; dz
  7666.  
  7667.  move.w sbr,d2
  7668.  sub.w fbr,d2
  7669.  sub.w d4,d6
  7670.  muls d6,d2
  7671.  divs d5,d2
  7672.  add.w fbr,d2
  7673.  move.w d2,sbr
  7674.  
  7675.  move.l (a1,d3*8),d2
  7676.  sub.l (a1,d1*8),d2    ; dx
  7677.  asr.l #7,d2
  7678.  muls d6,d2    ; new x coord
  7679.  divs d5,d2
  7680.  ext.l d2
  7681.  asl.l #7,d2
  7682.  add.l (a1,d1*8),d2
  7683.  move.w minz,d5
  7684.  move.w (a2,d1*2),d0
  7685.  divs d5,d2
  7686.  add.w MIDDLEX,d2
  7687.  move.l ypos,d1
  7688.  divs d4,d1
  7689.  move.w bottomline,d3 
  7690.  bra lineclippedGOUR
  7691.  
  7692. bothinfrontGOUR:
  7693.  
  7694. * Also, usefully enough, both are on-screen
  7695. * so no bottom clipping is needed.
  7696.  
  7697.  move.w (a2,d1*2),d0    ; first x
  7698.  move.w (a2,d3*2),d2    ; second x
  7699.  move.l ypos,d1
  7700.  move.l d1,d3
  7701.  divs d4,d1        ; first y
  7702.  divs d5,d3        ; second y
  7703. lineclippedGOUR:
  7704.  move.l #rightsidetab,a3
  7705.  cmp.w d1,d3
  7706.  bne linenotflatGOUR
  7707.  
  7708. ; move.w fbr,d4
  7709. ; move.w sbr,d5
  7710. ; cmp.w d0,d2
  7711. ; bgt.s .nsw
  7712. ; exg d4,d5
  7713. ;.nsw:
  7714.  
  7715. ; move.l #leftbrighttab,a3
  7716. ; move.w d4,(a3,d3.w)
  7717. ; move.l #rightbrighttab,a3
  7718. ; move.w d5,(a3,d3.w) 
  7719.  bra lineflatGOUR
  7720.  
  7721. linenotflatGOUR
  7722.  st drawit
  7723.  bgt lineonrightGOUR
  7724.  move.l #leftsidetab,a3
  7725.  exg d1,d3
  7726.  exg d0,d2
  7727.  
  7728.  lea (a3,d1*2),a3
  7729.  lea leftbrighttab-leftsidetab(a3),a4
  7730.  
  7731.  cmp.w top(pc),d1
  7732.  bge.s .nonewtop
  7733.  move.w d1,top
  7734. .nonewtop:
  7735.  cmp.w bottom(pc),d3
  7736.  ble.s .nonewbot
  7737.  move.w d3,bottom
  7738. .nonewbot:
  7739.  
  7740.  sub.w d1,d3    ; dy
  7741.  sub.w d0,d2    ; dx
  7742.  
  7743.  blt .linegoingleft
  7744.  
  7745.  ext.l d2
  7746.  divs d3,d2
  7747.  move.w d2,d6
  7748.  swap d2
  7749.  move.w d2,a5
  7750.  
  7751. ; moveq #0,d6
  7752. ; sub.w d3,d2
  7753. ; blt.s .noco
  7754. ;.makeco
  7755. ; addq #1,d6
  7756. ; sub.w d3,d2
  7757. ; bge.s .makeco
  7758. ;.noco
  7759. ; add.w d3,d2
  7760.  
  7761.  move.w d3,d4
  7762.  move.w d3,d5
  7763.  subq #1,d5
  7764.  move.w d6,d1
  7765.  addq #1,d1
  7766.  move.w d1,a6
  7767.  
  7768.  moveq #0,d1
  7769.  move.w sbr,d1
  7770.  move.w fbr,d2
  7771.  sub.w d1,d2
  7772.  ext.l d2
  7773.  asl.w #8,d2
  7774.  asl.w #2,d2
  7775.  divs d3,d2 
  7776.  ext.l d2
  7777.  asl.l #6,d2
  7778.  swap d1
  7779.  
  7780. .pixlopright:
  7781.  move.w d0,(a3)+
  7782.  swap d1
  7783.  move.w d1,(a4)+
  7784.  swap d1
  7785.  add.l d2,d1
  7786.  
  7787.  sub.w a5,d4
  7788.  bge.s .nobigstep
  7789.  add.w a6,d0
  7790.  add.w d3,d4
  7791.  dbra d5,.pixlopright
  7792.  bra lineflatGOUR
  7793. .nobigstep
  7794.  
  7795.  add.w d6,d0
  7796.  dbra d5,.pixlopright
  7797.  bra lineflatGOUR
  7798.  
  7799. .linegoingleft:
  7800.  
  7801.  neg.w d2
  7802.  
  7803.  ext.l d2
  7804.  divs d3,d2
  7805.  move.w d2,d6
  7806.  swap d2
  7807.  
  7808.  
  7809. ; moveq #0,d6
  7810. ; sub.w d3,d2
  7811. ; blt.s .nocol
  7812. ;.makecol
  7813. ; addq #1,d6
  7814. ; sub.w d3,d2
  7815. ; bge.s .makecol
  7816. ;.nocol
  7817. ; add.w d3,d2
  7818.  
  7819.  move.w d3,d4
  7820.  move.w d3,d5
  7821.  subq #1,d5
  7822.  
  7823.  move.w d6,d1
  7824.  addq #1,d1
  7825.  move.w d1,a6
  7826.  move.w d2,a5
  7827.  
  7828.  moveq #0,d1
  7829.  move.w sbr,d1
  7830.  move.w fbr,d2
  7831.  sub.w d1,d2
  7832.  ext.l d2
  7833.  asl.w #8,d2
  7834.  asl.w #2,d2
  7835.  divs d3,d2 
  7836.  ext.l d2
  7837.  asl.l #6,d2
  7838.  swap d1
  7839.  
  7840. .pixlopleft:
  7841.  
  7842.  swap d1
  7843.  move.w d1,(a4)+
  7844.  swap d1
  7845.  add.l d2,d1
  7846.  
  7847.  sub.w a5,d4
  7848.  bge.s .nobigstepl
  7849.  sub.w a6,d0
  7850.  add.w d3,d4
  7851.  move.w d0,(a3)+
  7852.  dbra d5,.pixlopleft
  7853.  bra lineflatGOUR
  7854.  
  7855. .nobigstepl
  7856.  sub.w d6,d0
  7857.  move.w d0,(a3)+
  7858.  dbra d5,.pixlopleft
  7859.  bra lineflatGOUR
  7860.  
  7861. lineonrightGOUR:
  7862.  
  7863.  lea (a3,d1*2),a3
  7864.  
  7865.  lea rightbrighttab-rightsidetab(a3),a4
  7866.  
  7867.  cmp.w top(pc),d1
  7868.  bge.s .nonewtop
  7869.  move.w d1,top
  7870. .nonewtop:
  7871.  cmp.w bottom(pc),d3
  7872.  ble.s .nonewbot
  7873.  move.w d3,bottom
  7874. .nonewbot:
  7875.  
  7876.  sub.w d1,d3    ; dy
  7877.  sub.w d0,d2    ; dx
  7878.  blt .linegoingleft
  7879. ; addq #1,d0
  7880.  ext.l d2
  7881.  divs d3,d2
  7882.  move.w d2,d6
  7883.  swap d2
  7884.  
  7885. ; moveq #0,d6
  7886. ; sub.w d3,d2
  7887. ; blt.s .noco
  7888. ;.makeco
  7889. ; addq #1,d6
  7890. ; sub.w d3,d2
  7891. ; bge.s .makeco
  7892. ;.noco
  7893. ; add.w d3,d2
  7894.  
  7895.  move.w d3,d4
  7896.  move.w d3,d5
  7897.  subq #1,d5
  7898.  move.w d6,d1
  7899.  addq #1,d1
  7900.  
  7901.  move.w d1,a6
  7902.  move.w d2,a5
  7903.  
  7904.  moveq #0,d1
  7905.  move.w fbr,d1
  7906.  move.w sbr,d2
  7907.  sub.w d1,d2
  7908.  ext.l d2
  7909.  asl.w #8,d2
  7910.  asl.w #2,d2
  7911.  divs d3,d2 
  7912.  ext.l d2
  7913.  asl.l #6,d2
  7914.  swap d1
  7915.  
  7916. .pixlopright:
  7917.  
  7918.  swap d1
  7919.  move.w d1,(a4)+
  7920.  swap d1
  7921.  add.l d2,d1
  7922.  
  7923.  sub.w a5,d4
  7924.  bge.s .nobigstep
  7925.  add.w a6,d0
  7926.  add.w d3,d4
  7927.  move.w d0,(a3)+
  7928.  dbra d5,.pixlopright
  7929.  bra lineflatGOUR
  7930.  
  7931. .nobigstep
  7932.  add.w d6,d0
  7933.  move.w d0,(a3)+
  7934.  dbra d5,.pixlopright
  7935.  bra lineflatGOUR
  7936.  
  7937. .linegoingleft:
  7938. ; addq #1,d0
  7939.  neg.w d2
  7940.  
  7941.  ext.l d2
  7942.  divs d3,d2
  7943.  move.w d2,d6
  7944.  swap d2
  7945.  
  7946.  
  7947. ; moveq #0,d6
  7948. ; sub.w d3,d2
  7949. ; blt.s .nocol
  7950. ;.makecol
  7951. ; addq #1,d6
  7952. ; sub.w d3,d2
  7953. ; bge.s .makecol
  7954. ;.nocol
  7955. ; add.w d3,d2
  7956.  
  7957.  move.w d3,d4
  7958.  move.w d3,d5
  7959.  subq #1,d5
  7960.  move.w d6,d1
  7961.  addq #1,d1
  7962.  move.w d1,a6
  7963.  move.w d2,a5
  7964.  
  7965.  moveq #0,d1
  7966.  move.w fbr,d1
  7967.  move.w sbr,d2
  7968.  sub.w d1,d2
  7969.  ext.l d2
  7970.  asl.w #8,d2
  7971.  asl.w #2,d2
  7972.  divs d3,d2 
  7973.  ext.l d2
  7974.  asl.l #6,d2
  7975.  swap d1
  7976.  
  7977. .pixlopleft:
  7978.  
  7979.  swap d1
  7980.  move.w d1,(a4)+
  7981.  swap d1
  7982.  add.l d2,d1
  7983.  
  7984.  move.w d0,(a3)+
  7985.  sub.w a5,d4
  7986.  bge.s .nobigstepl
  7987.  sub.w a6,d0
  7988.  add.w d3,d4
  7989.  dbra d5,.pixlopleft
  7990.  bra lineflatGOUR
  7991.  
  7992. .nobigstepl
  7993.  sub.w d6,d0
  7994.  dbra d5,.pixlopleft
  7995.  
  7996. lineflatGOUR:
  7997.  
  7998. bothbehindGOUR:
  7999.  dbra d7,sideloopGOUR
  8000.  
  8001. pastsides:
  8002.  
  8003.  addq #2,a0
  8004.  
  8005.  move.w #320,linedir
  8006.  
  8007. ; move.l FASTBUFFER2,a6
  8008. ; add.l BIGMIDDLEY,a6
  8009. ; move.l a6,REFPTR
  8010.  
  8011.  move.l FASTBUFFER,a6
  8012.  add.l BIGMIDDLEY,a6
  8013.  move.w (a0)+,d6
  8014.  add.w SMALLIT,d6
  8015.  move.w d6,scaleval
  8016.  move.w (a0)+,d6
  8017.  
  8018.  ifne CHEESEY
  8019.  move.w d6,d7    ; 000000XX000000YY
  8020.  lsr.w #6,d6
  8021.  add.w d6,d7    ; 000000XX0000XXYY
  8022.  
  8023.  and.b #%111,d6    ; 000000XX00000XYY
  8024.  add.b d7,d7    ; 000000XX0000XYY0
  8025.  asl.w #4,d7    ; 00XX0000 XYY00000
  8026.  and.w #%0010000011100000,d7
  8027.  move.w d7,d6
  8028.  endc
  8029.  
  8030.  move.w d6,whichtile
  8031.  move.w (a0)+,d6
  8032.  add.w ZoneBright,d6
  8033.  move.w d6,lighttype
  8034.  move.w above(pc),d6
  8035.  beq groundfloor
  8036. * on ceiling:
  8037.  move.w #-320,linedir
  8038.  suba.w #320,a6
  8039. groundfloor:
  8040.  
  8041.  move.w xoff,d6
  8042.  move.w zoff,d7
  8043.  add.w xwobxoff,d7
  8044.  add.w xwobzoff,d6
  8045.  ext.l d6
  8046.  ext.l d7
  8047.  
  8048.  tst.b FULLSCR
  8049.  beq.s .shiftit
  8050.  
  8051.  asl.l #2,d6
  8052.  asl.l #2,d7
  8053.  divs #3,d6
  8054.  divs #3,d7
  8055.  swap d6
  8056.  swap d7
  8057.  clr.w d6
  8058.  clr.w d7
  8059.  asr.l #2,d6
  8060.  asr.l #2,d7
  8061.  bra.s .donsht
  8062.  
  8063. .shiftit
  8064.  
  8065. ; divs #3,d6
  8066. ; divs #3,d7
  8067.  swap d6
  8068.  swap d7
  8069.  clr.w d6
  8070.  clr.w d7
  8071.  asr.l #1,d6
  8072.  asr.l #1,d7
  8073. .donsht:
  8074.  move.w scaleval(pc),d3
  8075.  beq.s .samescale
  8076.  bgt.s .scaledown
  8077.  neg.w d3
  8078.  asr.l d3,d7
  8079.  asr.l d3,d6
  8080.  bra.s .samescale
  8081. .scaledown:
  8082.  asl.l d3,d6
  8083.  asl.l d3,d7
  8084. .samescale
  8085.  
  8086.  ifne CHEESEY
  8087.  asr.l #1,d6
  8088.  asr.l #1,d7
  8089.  endc
  8090.  
  8091.  move.l d6,sxoff
  8092.  move.l d7,szoff
  8093.  bra pastscale 
  8094.  
  8095.  asr.l #3,d1
  8096.  asr.l #3,d2
  8097.  asr.l #2,d1
  8098.  asr.l #2,d2
  8099.  asr.l #1,d1
  8100.  asr.l #1,d2
  8101. scaleprogfrom
  8102.  nop
  8103.  nop
  8104.  asl.l #1,d1
  8105.  asl.l #1,d2
  8106.  asl.l #2,d1
  8107.  asl.l #2,d2
  8108.  asl.l #3,d1
  8109.  asl.l #3,d2
  8110.  
  8111. top: dc.w 0
  8112. bottom: dc.w 0
  8113. ypos: dc.l 0
  8114. nfloors: dc.w 0
  8115. lighttype: dc.w 0
  8116. above: dc.w 0 
  8117. linedir: dc.w 0
  8118. distaddr: dc.w 0
  8119.  
  8120. minz: dc.l 0
  8121.  
  8122. leftsidetab:
  8123.  ds.w 512*2
  8124. rightsidetab:
  8125.  ds.w 512*2
  8126. leftbrighttab:
  8127.  ds.w 512*2
  8128. rightbrighttab:
  8129.  ds.w 512*2
  8130.  
  8131. PointBrights:
  8132.  dc.l 0
  8133. CurrentPointBrights:
  8134.  ds.l 2*256*10
  8135.  
  8136. movespd: dc.w 0
  8137. largespd: dc.l 0
  8138. disttobot: dc.w 0
  8139.  
  8140. pastscale:
  8141.  
  8142.  
  8143.  tst.b drawit(pc)
  8144.  beq dontdrawfloor
  8145.  
  8146.  tst.b DOUBLEHEIGHT
  8147.  beq pix1h
  8148.  
  8149.  move.l a0,-(a7)
  8150.  move.w linedir,d1
  8151.  add.w d1,linedir
  8152.  
  8153.  move.l #leftsidetab,a4
  8154.  move.w top(pc),d1
  8155.  tst.w above
  8156.  beq.s .clipfloor
  8157.  
  8158.  sub.w #320,a6
  8159.  
  8160.  move.w MIDDLEY,d7
  8161.  subq #1,d7
  8162.  sub.w d1,d7
  8163.  move.w d7,disttobot
  8164.  
  8165.  move.w bottom(pc),d7
  8166.  move.w MIDDLEY,d3
  8167.  move.w d3,d4
  8168.  sub.w topclip,d3
  8169.  sub.w botclip,d4
  8170.  cmp.w d3,d1
  8171.  bge predontdrawfloor
  8172.  cmp.w d4,d7
  8173.  blt predontdrawfloor
  8174.  cmp.w d4,d1
  8175.  bge.s .nocliptoproof
  8176.  move.w d4,d1
  8177. .nocliptoproof
  8178.  cmp.w d3,d7
  8179.  blt .doneclip
  8180.  move.w d3,d7
  8181.  bra .doneclip
  8182.  
  8183. .clipfloor:
  8184.  move.w BOTTOMY,d7
  8185.  sub.w MIDDLEY,d7
  8186.  subq #1,d7
  8187.  sub.w d1,d7
  8188.  move.w d7,disttobot
  8189.  
  8190.  move.w bottom(pc),d7
  8191.  move.w botclip,d4
  8192.  sub.w MIDDLEY,d4
  8193.  cmp.w d4,d1
  8194.  bge predontdrawfloor
  8195.  move.w topclip,d3
  8196.  sub.w MIDDLEY,d3
  8197.  cmp.w d3,d1
  8198.  bge.s .nocliptopfloor
  8199.  move.w d3,d1
  8200. .nocliptopfloor 
  8201.  cmp.w d3,d7
  8202.  ble predontdrawfloor
  8203.  cmp.w d4,d7
  8204.  blt.s .noclipbotfloor
  8205.  move.w d4,d7
  8206. .noclipbotfloor:
  8207.  
  8208. .doneclip:
  8209.  
  8210.  lea (a4,d1*2),a4
  8211.  addq #1,d7
  8212.  sub.w d1,d7
  8213.  
  8214. ;moveq #0,d0
  8215.  asr.w #1,d1
  8216. ; addx d0,d1
  8217.  
  8218. ; move.l #dists,a2
  8219.  move.w distaddr,d0
  8220.  muls #64,d0
  8221.  move.l d0,a2
  8222. ; muls #25,d0
  8223. ; adda.w d0,a2
  8224. ; lea (a2,d1*2),a2
  8225.  asr.w #1,d7
  8226.  ble predontdrawfloor 
  8227.  move.w d1,d0
  8228.  bne.s .notzero
  8229.  moveq #1,d0
  8230. .notzero
  8231.  add.w d0,d0
  8232.  muls linedir,d1
  8233.  add.l d1,a6
  8234. ; sub.l d1,REFPTR
  8235.  move.l TexturePal,a1
  8236.  move.l LineToUse,a5
  8237.  
  8238.  move.w #4,tonextline
  8239.  
  8240.  bra pix2h
  8241.  
  8242. pix1h:
  8243.  
  8244.  move.l a0,-(a7)
  8245.  
  8246.  move.l #leftsidetab,a4
  8247.  move.w top(pc),d1
  8248.   
  8249.  tst.w above
  8250.  beq.s clipfloor
  8251.  
  8252.  move.w MIDDLEY,d7
  8253.  subq #1,d7
  8254.  sub.w d1,d7
  8255.  move.w d7,disttobot
  8256.  
  8257.  move.w bottom(pc),d7
  8258.  move.w MIDDLEY,d3
  8259.  move.w d3,d4
  8260.  sub.w topclip,d3
  8261.  sub.w botclip,d4
  8262.  cmp.w d3,d1
  8263.  bge predontdrawfloor
  8264.  cmp.w d4,d7
  8265.  blt predontdrawfloor
  8266.  cmp.w d4,d1
  8267.  bge.s .nocliptoproof
  8268.  move.w d4,d1
  8269. .nocliptoproof
  8270.  cmp.w d3,d7
  8271.  blt doneclip
  8272.  move.w d3,d7
  8273.  bra doneclip
  8274.  
  8275. clipfloor:
  8276.  move.w BOTTOMY,d7
  8277.  sub.w MIDDLEY,d7
  8278.  subq #1,d7
  8279.  sub.w d1,d7
  8280.  move.w d7,disttobot
  8281.  
  8282.  move.w bottom(pc),d7
  8283.  move.w botclip,d4
  8284.  sub.w MIDDLEY,d4
  8285.  cmp.w d4,d1
  8286.  bge predontdrawfloor
  8287.  move.w topclip,d3
  8288.  sub.w MIDDLEY,d3
  8289.  cmp.w d3,d1
  8290.  bge.s .nocliptopfloor
  8291.  move.w d3,d1
  8292. .nocliptopfloor 
  8293.  cmp.w d3,d7
  8294.  ble predontdrawfloor
  8295.  cmp.w d4,d7
  8296.  blt.s .noclipbotfloor
  8297.  move.w d4,d7
  8298. .noclipbotfloor:
  8299.  
  8300. doneclip:
  8301.  
  8302.  lea (a4,d1*2),a4
  8303. ; move.l #dists,a2
  8304.  move.w distaddr,d0
  8305.  muls #64,d0
  8306.  move.l d0,a2
  8307. ; muls #25,d0
  8308. ; adda.w d0,a2
  8309. ; lea (a2,d1*2),a2
  8310.  sub.w d1,d7
  8311.  ble predontdrawfloor 
  8312.  move.w d1,d0
  8313.  bne.s .notzero
  8314.  moveq #1,d0
  8315. .notzero
  8316.  muls linedir,d1
  8317.  add.l d1,a6
  8318. ; sub.l d1,REFPTR
  8319.  move.l TexturePal,a1
  8320.  move.l LineToUse,a5
  8321.  
  8322.  move.w #2,tonextline
  8323.  
  8324. pix2h:
  8325.  
  8326.  tst.b gourfloor
  8327.  bne dogourfloor
  8328.  
  8329.  tst.b anyclipping
  8330.  beq dofloornoclip
  8331.  
  8332. dofloor:
  8333. ; move.w (a2)+,d0
  8334.  move.w leftclip,d3
  8335.  move.w rightclip,d4
  8336.  move.w rightsidetab-leftsidetab(a4),d2
  8337.  
  8338.  addq #1,d2
  8339.  cmp.w d3,d2
  8340.  ble.s nodrawline
  8341.  cmp.w d4,d2
  8342.  ble.s noclipright
  8343.  move.w d4,d2
  8344. noclipright:
  8345.  move.w (a4),d1
  8346.  cmp.w d4,d1
  8347.  bge.s nodrawline
  8348.  cmp.w d3,d1
  8349.  bge.s noclipleft
  8350.  move.w d3,d1
  8351. noclipleft:
  8352.  cmp.w d1,d2
  8353.  ble.s nodrawline
  8354.  
  8355.  move.w d1,leftedge
  8356.  move.w d2,rightedge
  8357.  
  8358. ; moveq #0,d1
  8359. ; moveq #0,d3
  8360. ; move.w leftbrighttab-leftsidetab(a4),d1
  8361. ; bge.s .okbl
  8362. ; moveq #0,d1
  8363. ;.okbl:
  8364.  
  8365. ; move.w rightbrighttab-leftsidetab(a4),d3
  8366. ; bge.s .okbr
  8367. ; moveq #0,d3
  8368. ;.okbr:
  8369.  
  8370. ; sub.w d1,d3
  8371. ; asl.w #8,d1
  8372. ; move.l d1,leftbright
  8373. ; swap d3
  8374. ; asr.l #5,d3
  8375. ; divs d5,d3
  8376. ; move.w d3,d5
  8377. ; muls.w d6,d5
  8378. ; asr.l #3,d5
  8379. ; clr.b d5
  8380. ; add.w d5,leftbright+2
  8381.  
  8382. ; ext.l d3
  8383. ; asl.l #5,d3
  8384. ; swap d3
  8385. ; asl.w #8,d3
  8386. ; move.l d3,brightspd
  8387.  
  8388.  move.l a6,a3
  8389.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8390.  move.l a2,d7
  8391.  asl.l #2,d7
  8392.  ext.l d0
  8393.  divs.l d0,d7
  8394.  move.l d7,d0
  8395.  jsr (a5)
  8396.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8397. nodrawline
  8398.  sub.w #1,disttobot
  8399.  move.w linedir(pc),d3
  8400.  adda.w d3,a6
  8401. ; ext.l d3
  8402. ; sub.l d3,REFPTR
  8403.  move.w tonextline,d3
  8404.  add.w d3,a4
  8405.  asr.w #1,d3
  8406.  add.w d3,d0
  8407.  subq #1,d7
  8408.  bgt dofloor
  8409.  
  8410. predontdrawfloor
  8411.  move.l (a7)+,a0
  8412.  
  8413. dontdrawfloor:
  8414.  
  8415.  rts
  8416.  
  8417. tonextline: dc.w 0
  8418. anyclipping: dc.w 0
  8419.  
  8420. dofloornoclip:
  8421. ; move.w (a2)+,d0
  8422.  move.w rightsidetab-leftsidetab(a4),d2
  8423.  addq #1,d2
  8424.  move.w (a4),d1
  8425.  move.w d1,leftedge
  8426.  move.w d2,rightedge
  8427.  
  8428. ; sub.w d1,d2
  8429.  
  8430. ; moveq #0,d1
  8431. ; moveq #0,d3
  8432. ; move.w leftbrighttab-leftsidetab(a4),d1
  8433. ; bge.s .okbl
  8434. ; moveq #0,d1
  8435. ;.okbl:
  8436.  
  8437. ; move.w rightbrighttab-leftsidetab(a4),d3
  8438. ; bge.s .okbr
  8439. ; moveq #0,d3
  8440. ;.okbr:
  8441.  
  8442. ; sub.w d1,d3
  8443. ; asl.w #8,d1
  8444. ; move.l d1,leftbright
  8445. ; swap d3
  8446. ; asr.l #5,d3
  8447. ; divs d2,d3
  8448. ; ext.l d3
  8449. ; asl.l #5,d3
  8450. ; swap d3
  8451. ; asl.w #8,d3
  8452. ; move.l d3,brightspd
  8453.  
  8454.  move.l a6,a3
  8455.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8456.  move.l a2,d7
  8457.  asl.l #2,d7
  8458.  ext.l d0
  8459.  divs.l d0,d7
  8460.  move.l d7,d0
  8461.  jsr (a5)
  8462.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8463.  sub.w #1,disttobot
  8464.  move.w linedir(pc),d3
  8465.  adda.w d3,a6
  8466. ; ext.l d3
  8467. ; sub.l d3,REFPTR
  8468.  move.w tonextline,d3
  8469.  add.w d3,a4
  8470.  asr.w #1,d3
  8471.  add.w d3,d0
  8472.  subq #1,d7
  8473.  bgt dofloornoclip
  8474.  
  8475.  bra predontdrawfloor
  8476.  
  8477. dogourfloor:
  8478.  tst.b anyclipping
  8479.  beq dofloornoclipGOUR
  8480.  
  8481. dofloorGOUR:
  8482. ; move.w (a2)+,d0
  8483.  move.w leftclip,d3
  8484.  move.w rightclip,d4
  8485.  move.w rightsidetab-leftsidetab(a4),d2
  8486.  
  8487.  move.w d2,d5
  8488.  sub.w (a4),d5
  8489.  addq #1,d5
  8490.  moveq #0,d6
  8491.  
  8492.  addq #1,d2
  8493.  cmp.w d3,d2
  8494.  ble nodrawlineGOUR
  8495.  cmp.w d4,d2
  8496.  ble.s nocliprightGOUR
  8497.  move.w d4,d2
  8498. nocliprightGOUR:
  8499.  move.w (a4),d1
  8500.  cmp.w d4,d1
  8501.  bge nodrawlineGOUR
  8502.  cmp.w d3,d1
  8503.  bge.s noclipleftGOUR
  8504.  move.w d3,d6
  8505.  subq #1,d6
  8506.  sub.w d1,d6
  8507.  move.w d3,d1
  8508. noclipleftGOUR:
  8509.  cmp.w d1,d2
  8510.  ble nodrawlineGOUR
  8511.  
  8512.  move.w d1,leftedge
  8513.  move.w d2,rightedge
  8514.  
  8515.  move.l a2,d2
  8516.  asl.l #2,d2
  8517.  ext.l d0
  8518.  divs.l d0,d2
  8519.  move.l d2,dst
  8520.  asr.l #7,d2
  8521.  asr.l #2,d2
  8522. ; addq #5,d2
  8523. ; add.w lighttype,d2
  8524.  
  8525.  moveq #0,d1
  8526.  moveq #0,d3
  8527.  move.w leftbrighttab-leftsidetab(a4),d1
  8528.  add.w d2,d1
  8529.  bge.s .okbl
  8530.  moveq #0,d1
  8531. .okbl:
  8532. ; asr.w #1,d1
  8533.  cmp.w #30,d1
  8534.  ble.s .okdl
  8535.  move.w #30,d1
  8536. .okdl:
  8537.  
  8538.  move.w rightbrighttab-leftsidetab(a4),d3
  8539.  add.w d2,d3
  8540.  bge.s .okbr
  8541.  moveq #0,d3
  8542. .okbr:
  8543. ; asr.w #1,d3
  8544.  cmp.w #30,d3
  8545.  ble.s .okdr
  8546.  move.w #30,d3
  8547. .okdr:
  8548.  
  8549.  sub.w d1,d3
  8550.  asl.w #8,d1
  8551.  move.w d1,leftbright
  8552.  swap d3
  8553.  tst.l d3
  8554.  bgt.s .OKITSPOSALREADY 
  8555.  neg.l d3
  8556.  asr.l #6,d3
  8557.  divs d5,d3
  8558.  neg.w d3
  8559.  bra.s .OKNOWITSNEG
  8560.  
  8561. .OKITSPOSALREADY
  8562.  asr.l #6,d3
  8563.  divs d5,d3
  8564. .OKNOWITSNEG
  8565.  muls d3,d6
  8566.  add.w #256*4,d6
  8567.  asr.w #2,d6
  8568.  clr.b d6
  8569.  add.w leftbright,d6
  8570.  bge.s .oklbnn
  8571.  moveq #0,d6
  8572. .oklbnn:
  8573.  move.w d6,leftbright
  8574.  
  8575.  ext.l d3
  8576.  asr.l #2,d3
  8577. ; swap d3
  8578. ; asl.w #8,d3
  8579.  move.w d3,brightspd
  8580.  
  8581.  move.l a6,a3
  8582.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8583.  move.l dst,d0
  8584.  move.l TexturePal,a1
  8585.  move.l floortile,a0
  8586.  adda.w whichtile,a0
  8587.  jsr pastfloorbright
  8588.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8589. nodrawlineGOUR
  8590.  
  8591.  sub.w #1,disttobot
  8592.  
  8593.  move.w linedir(pc),d3
  8594.  adda.w d3,a6
  8595. ; ext.l d3
  8596. ; sub.l d3,REFPTR
  8597.  move.w tonextline,d3
  8598.  add.w d3,a4
  8599.  asr.w #1,d3
  8600.  add.w d3,d0
  8601.  subq #1,d7
  8602.  bgt dofloorGOUR
  8603.  
  8604. predontdrawfloorGOUR
  8605.  move.l (a7)+,a0
  8606.  
  8607. dontdrawfloorGOUR:
  8608.  
  8609.  rts
  8610.  
  8611. REFPTR: dc.l 0
  8612.  
  8613. dofloornoclipGOUR:
  8614. ; move.w (a2)+,d0
  8615.  move.w rightsidetab-leftsidetab(a4),d2
  8616.  addq #1,d2
  8617.  move.w (a4),d1
  8618.  move.w d1,leftedge
  8619.  move.w d2,rightedge
  8620.  
  8621.  sub.w d1,d2
  8622.  
  8623.  move.l a2,d6
  8624.  asl.l #2,d6
  8625.  ext.l d0
  8626.  divs.l d0,d6
  8627.  move.l d6,d5
  8628.  asr.l #7,d5
  8629.  asr.l #2,d5
  8630. ; addq #5,d5
  8631. ; add.w lighttype,d5
  8632.  
  8633.  moveq #0,d1
  8634.  moveq #0,d3
  8635.  move.w leftbrighttab-leftsidetab(a4),d1
  8636.  add.w d5,d1
  8637.  bge.s .okbl
  8638.  moveq #0,d1
  8639. .okbl:
  8640. ; asr.w #1,d1
  8641.  cmp.w #30,d1
  8642.  ble.s .okdl
  8643.  move.w #30,d1
  8644. .okdl:
  8645.  
  8646.  move.w rightbrighttab-leftsidetab(a4),d3
  8647.  add.w d5,d3
  8648.  bge.s .okbr
  8649.  moveq #0,d3
  8650. .okbr:
  8651. ; asr.w #1,d3
  8652.  cmp.w #30,d3
  8653.  ble.s .okdr
  8654.  move.w #30,d3
  8655. .okdr:
  8656.  
  8657. ; sub.w d1,d3
  8658. ; asl.w #8,d1
  8659. ; move.l d1,leftbright
  8660. ; swap d3
  8661. ; asr.l #5,d3
  8662. ; divs d2,d3
  8663. ; ext.l d3
  8664. ; asl.l #5,d3
  8665. ; swap d3
  8666. ; asl.w #8,d3
  8667. ; move.l d3,brightspd
  8668.  
  8669.  sub.w d1,d3
  8670.  asl.w #8,d1
  8671.  move.w d1,leftbright
  8672.  swap d3
  8673.  ext.l d2
  8674.  divs.l d2,d3
  8675.  asr.l #8,d3
  8676.  move.w d3,brightspd
  8677.  
  8678.  move.l a6,a3
  8679.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8680.  move.l d6,d0
  8681.  move.l d0,dst
  8682.  move.l TexturePal,a1
  8683.  move.l floortile,a0
  8684.  adda.w whichtile,a0
  8685.  jsr pastfloorbright
  8686.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8687.  sub.w #1,disttobot
  8688.  
  8689.  move.w linedir(pc),d3
  8690.  adda.w d3,a6
  8691. ; ext.l d3
  8692. ; sub.l d3,REFPTR
  8693.  
  8694.  move.w tonextline,d3
  8695.  add.w d3,a4
  8696.  asr.w #1,d3
  8697.  add.w d3,d0
  8698.  subq #1,d7
  8699.  bgt dofloornoclipGOUR
  8700.  
  8701.  bra predontdrawfloorGOUR
  8702.  
  8703.  
  8704.  
  8705. dists:
  8706. ; incbin "floordists"
  8707. drawit: dc.w 0
  8708.  
  8709. LineToUse: dc.l 0
  8710.  
  8711. ***************************
  8712. * Right then, time for the floor
  8713. * routine...
  8714. * For test purposes, give it
  8715. * a3 = point to screen
  8716. * d0= z distance away
  8717. * and sinval+cosval must be set up.
  8718. ***************************
  8719.  
  8720. BLACKFLOOR:
  8721.  moveq #0,d0
  8722.  bra.s DOBLACK
  8723.  
  8724. SimpleFloorLine:
  8725.  
  8726.  CACHE_OFF d2
  8727.  
  8728.  move.l #doacrossline,a1
  8729.  move.w leftedge(pc),d1
  8730.  move.w rightedge(pc),d3
  8731.  sub.w d1,d3
  8732.  lea (a1,d1.w*4),a1
  8733.  move.w (a1,d3.w*4),d4
  8734.  move.w #$4e75,(a1,d3.w*4)
  8735.  
  8736.  tst.b CLRNOFLOOR
  8737.  bne.s BLACKFLOOR
  8738.  
  8739.  move.l #PLAINSCALE,a2
  8740.  
  8741.  move.w d0,d2
  8742.  move.w lighttype,d1
  8743.  asr.w #8,d2
  8744.  add.w #5,d1
  8745.  add.w d2,d1
  8746.  bge.s .fixedbright
  8747.  moveq #0,d1
  8748. .fixedbright:
  8749.  cmp.w #28,d1
  8750.  ble.s .smallbright
  8751.  move.w #28,d1
  8752. .smallbright:
  8753.  lea (a2,d1.w*2),a2
  8754.  
  8755.  move.w whichtile,d0
  8756.  move.w d0,d1
  8757.  and.w #$3,d1
  8758.  and.w #$300,d0
  8759.  lsl.b #6,d1
  8760.  move.b d1,d0
  8761.  move.w d0,tstwhich
  8762.  move.w (a2,d0.w),d0
  8763.  
  8764. DOBLACK:
  8765.  jsr (a1)
  8766.  move.w d4,(a1,d3.w*4)
  8767.  
  8768.  CACHE_ON d2
  8769.  
  8770.  rts
  8771.  
  8772. tstwhich: dc.w 0
  8773. whichtile: dc.w 0
  8774.   
  8775. PLAINSCALE: 
  8776. ;incbin "ab3:includes/plainscale"
  8777.   
  8778. storeit: dc.l 0
  8779.  
  8780. doacrossline:
  8781. val SET 0
  8782.  REPT 32
  8783.  move.w d0,val(a3)
  8784. val SET val+4
  8785.  ENDR
  8786. val SET val+4
  8787.  REPT 32
  8788.  move.w d0,val(a3)
  8789. val SET val+4
  8790.  ENDR
  8791. val SET val+4
  8792.  REPT 32
  8793.  move.w d0,val(a3)
  8794. val SET val+4
  8795.  ENDR
  8796.  rts
  8797.  
  8798.  
  8799. leftedge: dc.w 0
  8800. rightedge: dc.w 0
  8801.  
  8802. rndpt: dc.l rndtab
  8803.  
  8804.  
  8805. dst: dc.l 0
  8806.  
  8807. FloorLine:
  8808.  
  8809.  move.l floortile,a0
  8810.  adda.w whichtile,a0
  8811.  move.w lighttype,d1
  8812.  move.l d0,dst    ; *4
  8813.  move.l d0,d2    ; *4
  8814. *********************
  8815. * Old version
  8816.  asr.l #2,d2
  8817.  asr.l #8,d2
  8818.  add.w #5,d1
  8819. *********************
  8820. ; asr.w #3,d2
  8821. ; sub.w #4,d2
  8822. ; cmp.w #6,d2
  8823. ; blt.s flbrbr
  8824. ; move.w #6,d2
  8825. ;flbrbr:
  8826. *********************
  8827.  add.w d2,d1
  8828.  bge.s .fixedbright
  8829.  moveq #0,d1
  8830. .fixedbright:
  8831.  cmp.w #28,d1
  8832.  ble.s .smallbright
  8833.  move.w #28,d1
  8834. .smallbright:
  8835.  move.l TexturePal,a1
  8836.  add.l floorbright(pc,d1.w*4),a1
  8837.  bra pastfloorbright
  8838.  
  8839. ConstCol: dc.w 0
  8840.  
  8841. BumpLine:
  8842.  
  8843.  tst.b smoothbumps
  8844.  beq.s Chunky
  8845.  
  8846.  move.l #SmoothTile,a0
  8847.  lea Smoothscalecols,a1
  8848.  bra pastast
  8849.  
  8850. Chunky:
  8851.  
  8852.  moveq #0,d2
  8853.  move.l #Bumptile,a0
  8854.  move.w whichtile,d2
  8855.  adda.w d2,a0
  8856.  ror.l #2,d2
  8857.  lsr.w #6,d2
  8858.  rol.l #2,d2
  8859.  and.w #15,d2
  8860.  move.l #ConstCols,a1
  8861.  move.w (a1,d2.w*2),ConstCol
  8862.  lea Bumpscalecols,a1
  8863.  
  8864. pastast:
  8865.  move.w lighttype,d1
  8866.  
  8867.  move.l d0,dst
  8868.  
  8869.  move.l d0,d2
  8870. *********************
  8871. * Old version
  8872.  asr.l #2,d2
  8873.  asr.l #8,d2
  8874.  add.w #5,d1
  8875. *********************
  8876. ; asr.w #3,d2
  8877. ; sub.w #4,d2
  8878. ; cmp.w #6,d2
  8879. ; blt.s flbrbr
  8880. ; move.w #6,d2
  8881. ;flbrbr:
  8882. *********************
  8883.  add.w d2,d1
  8884.  bge.s .fixedbright
  8885.  moveq #0,d1
  8886. .fixedbright:
  8887.  cmp.w #31,d1
  8888.  ble.s .smallbright
  8889.  move.w #31,d1
  8890. .smallbright:
  8891.  add.l floorbright(pc,d1.w*4),a1
  8892.  bra pastfloorbright
  8893.  
  8894.  
  8895. floorbright:
  8896.  dc.l 512*0
  8897.  dc.l 512*1
  8898.  dc.l 512*2
  8899.  dc.l 512*3
  8900.  dc.l 512*4
  8901.  
  8902.  dc.l 512*5
  8903.  dc.l 512*6
  8904.  dc.l 512*7
  8905.  dc.l 512*8
  8906.  dc.l 512*9
  8907.  
  8908.  dc.l 512*10
  8909.  dc.l 512*11
  8910.  dc.l 512*12
  8911.  dc.l 512*13
  8912.  dc.l 512*14
  8913.  
  8914.  dc.l 512*15
  8915.  dc.l 512*16
  8916.  dc.l 512*17
  8917.  dc.l 512*18
  8918.  dc.l 512*19
  8919.  
  8920.  dc.l 512*20
  8921.  dc.l 512*21
  8922.  dc.l 512*22
  8923.  dc.l 512*23
  8924.  dc.l 512*24
  8925.  
  8926.  dc.l 512*25
  8927.  dc.l 512*26
  8928.  dc.l 512*27
  8929.  dc.l 512*28
  8930.  dc.l 512*29
  8931.  
  8932.  dc.l 512*30
  8933.  dc.l 512*31
  8934.  
  8935. widthleft: dc.w 0
  8936. scaleval: dc.w 0
  8937. sxoff: dc.l 0
  8938. szoff: dc.l 0
  8939. xoff34: dc.w 0
  8940. zoff34: dc.w 0
  8941. scosval: dc.w 0
  8942. ssinval: dc.w 0
  8943.  
  8944.  
  8945. floorsetbright:
  8946.  move.l #walltiles,a0
  8947.  
  8948. pastfloorbright:
  8949.  
  8950.  move.l d0,d1
  8951.  muls cosval,d1    ; change in x across whole width
  8952.  move.l d0,d2
  8953.  muls sinval,d2    ; change in z across whole width
  8954.  neg.l d2
  8955.  ifne CHEESEY
  8956.  asr.l #3,d2
  8957.  asr.l #3,d1
  8958.  endc
  8959.  ifeq CHEESEY
  8960.  asr.l #2,d2
  8961.  asr.l #2,d1
  8962.  endc
  8963. scaleprog:
  8964.  move.w scaleval(pc),d3
  8965.  beq.s .samescale
  8966.  bgt.s .scaledown
  8967.  neg.w d3
  8968.  asr.l d3,d1
  8969.  asr.l d3,d2
  8970.  bra.s .samescale
  8971. .scaledown:
  8972.  asl.l d3,d1
  8973.  asl.l d3,d2
  8974. .samescale
  8975.  
  8976.  
  8977.  move.l d1,d3 ;    z cos
  8978.  move.l d3,d6
  8979.  move.l d3,d5
  8980.  asr.l #1,d6
  8981.  add.l d6,d3
  8982.  asr.l #1,d3
  8983.  
  8984.  move.l d2,d4    ; z sin
  8985.  move.l d4,d6
  8986.  asr.l #1,d6
  8987.  add.l d4,d6
  8988.  add.l d3,d4
  8989.  neg.l d4    ; start x
  8990.  
  8991.  asr.l #1,d6    ; zsin/2
  8992.  sub.l d6,d5    ; start z
  8993.  
  8994.  add.l sxoff,d4
  8995.  add.l szoff,d5
  8996.  
  8997.  tst.b FULLSCR
  8998.  beq.s .nob
  8999.  
  9000.  moveq #0,d6
  9001.  move.w leftedge(pc),d6
  9002.  beq.s .nomultleftB
  9003.  
  9004.  add.l d6,d6
  9005.  divs #3,d6
  9006.  ext.l d6
  9007.  
  9008.  move.l d1,a4
  9009.  move.l d2,a5
  9010.  
  9011.  muls.l d6,d1
  9012.  asr.l #7,d1
  9013.  add.l d1,d4
  9014.  
  9015.  muls.l d6,d2
  9016.  asr.l #7,d2
  9017.  add.l d2,d5
  9018.  move.l a4,d1
  9019.  move.l a5,d2
  9020.  
  9021.  move.w leftedge(pc),d6
  9022.  
  9023. .nomultleftB:
  9024.  
  9025.  move.w d4,startsmoothx
  9026.  move.w d5,startsmoothz
  9027.  
  9028.  asr.l #8,d4
  9029.  asl.l #8,d5
  9030. ; add.w szoff,d5
  9031. ; add.w sxoff,d4
  9032. ; and.w #63,d4
  9033. ; and.w #63*256,d5
  9034.  
  9035.  move.w d4,d5
  9036.  
  9037.  asr.l #6,d1
  9038.  asr.l #6,d2
  9039.  divs.l #3,d1
  9040.  divs.l #3,d2
  9041.  
  9042.  bra.s doneallmult
  9043.  
  9044. .nob 
  9045.  
  9046.  moveq #0,d6
  9047.  move.w leftedge(pc),d6
  9048.  beq.s nomultleft
  9049.  
  9050.  move.l d1,a4
  9051.  move.l d2,a5
  9052.  
  9053.  muls.l d6,d1
  9054.  asr.l #7,d1
  9055.  add.l d1,d4
  9056.  
  9057.  muls.l d6,d2
  9058.  asr.l #7,d2
  9059.  add.l d2,d5
  9060.  move.l a4,d1
  9061.  move.l a5,d2
  9062.  
  9063.  move.w leftedge(pc),d6
  9064.  
  9065. nomultleft:
  9066.  
  9067.  move.w d4,startsmoothx
  9068.  move.w d5,startsmoothz
  9069.  
  9070.  asr.l #8,d4
  9071.  asl.l #8,d5
  9072.  
  9073.  
  9074. ; add.w szoff,d5
  9075. ; add.w sxoff,d4
  9076. ; and.w #63,d4
  9077. ; and.w #63*256,d5
  9078.  
  9079.  move.w d4,d5
  9080.  
  9081.  asr.l #7,d1
  9082.  asr.l #7,d2
  9083. ; divs.l #3,d1
  9084. ; divs.l #3,d2
  9085.  
  9086. doneallmult:
  9087.  
  9088.  move.w d1,a4
  9089.  move.w d2,a5
  9090.  asl.l #8,d2
  9091. ; and.w #%0011111100000000,d2
  9092.  asr.l #8,d1
  9093.  move.w d1,d2
  9094.  ifeq CHEESEY
  9095.  move.l #$3fff3fff,d1
  9096.  endc
  9097.  ifne CHEESEY
  9098.  move.l #$1fff1fff,d1
  9099.  endc
  9100.  and.l d1,d5
  9101. ; swap d5
  9102. ; move.w startsmoothz,d5
  9103. ; swap d5
  9104. ; swap d2
  9105. ; move.w a5,d2
  9106. ; swap d2
  9107.  
  9108. ***********************************
  9109.  
  9110.  
  9111.  tst.b DOUBLEWIDTH
  9112.  beq.s .nodoub
  9113.  
  9114.  and.b #$fe,d6
  9115.  
  9116.  move.w d6,a2
  9117.  moveq #0,d0 
  9118.  move.w rightedge(pc),d3 
  9119.  lea (a3,a2.w),a3 
  9120.  move.w d3,d7
  9121.  sub.w a2,d7
  9122.  asr.w #1,d7
  9123.  move.w startsmoothx,d3
  9124.  
  9125.  tst.b usewater
  9126.  bne texturedwaterDOUB
  9127. ; tst.b gourfloor
  9128.  bra gouraudfloorDOUB
  9129.  
  9130. .nodoub:
  9131.  
  9132.  move.w d6,a2
  9133.  moveq #0,d0 
  9134.  move.w rightedge(pc),d3 
  9135.  lea (a3,a2.w),a3 
  9136.  move.w d3,d7
  9137.  sub.w a2,d7
  9138.  
  9139. intofirststrip:
  9140. allintofirst:
  9141.  
  9142.  move.w startsmoothx,d3
  9143.  
  9144. tstwat:
  9145.  
  9146.  tst.b usewater
  9147.  bne texturedwater
  9148. ; tst.b gourfloor
  9149.  bra gouraudfloor
  9150.  
  9151.  
  9152.  
  9153. ******************************
  9154. * BumpMap the floor/ceiling! *
  9155.  tst.b usebumps
  9156.  bne.s BumpMap
  9157. ******************************
  9158.  
  9159. ordinary:
  9160.  moveq #0,d0
  9161.  
  9162.  dbra d7,acrossscrn
  9163.  rts
  9164.  
  9165. usebumps: dc.w $0
  9166. smoothbumps: dc.w $0
  9167. gourfloor: dc.w 0
  9168.  
  9169.  include "ab3:source_4000/bumpmap.s"
  9170.  
  9171.  CNOP 0,4
  9172. backbefore:
  9173.  and.w d1,d5
  9174.  move.b (a0,d5.w*4),d0
  9175.  add.w a4,d3
  9176.  addx.l d6,d5
  9177.  move.w (a1,d0.w*2),(a3)
  9178.  addq #4,a3
  9179.  dbcs d7,acrossscrn
  9180.  dbcc d7,backbefore
  9181.  bra.s past1
  9182.  
  9183. acrossscrn:
  9184.  and.w d1,d5
  9185.  move.b (a0,d5.w*4),d0
  9186.  add.w a4,d3
  9187.  addx.l d2,d5
  9188.  move.w (a1,d0.w*2),(a3)
  9189.  addq #4,a3
  9190.  dbcs d7,acrossscrn
  9191.  dbcc d7,backbefore
  9192. past1:
  9193.  bcc.s gotoacross
  9194.  
  9195.  move.w d4,d7
  9196.  bne.s .notdoneyet
  9197.  rts
  9198. .notdoneyet:
  9199.  
  9200.  cmp.w #32,d7
  9201.  ble.s .notoowide
  9202.  move.w #32,d7
  9203. .notoowide
  9204.  sub.w d7,d4  
  9205.  addq #4,a3
  9206.  
  9207.  dbra d7,backbefore
  9208.  rts
  9209.  
  9210.  
  9211. gotoacross:
  9212.  
  9213.  move.w d4,d7
  9214.  bne.s .notdoneyet
  9215.  rts
  9216. .notdoneyet:
  9217.  
  9218.  cmp.w #32,d7
  9219.  ble.s .notoowide
  9220.  move.w #32,d7
  9221. .notoowide
  9222.  sub.w d7,d4  
  9223.  addq #4,a3
  9224.  
  9225.  dbra d7,acrossscrn
  9226.  rts
  9227.  
  9228. leftbright: dc.l 0
  9229. brightspd: dc.l 0
  9230.  
  9231. gouraudfloor:
  9232.  
  9233.  move.w leftbright,d0
  9234.  move.l d1,d4
  9235.  move.w brightspd,d1
  9236.  
  9237.  move.w d7,d3
  9238.  asr.w #1,d7
  9239.  btst #0,d3
  9240.  beq.s .nosingle1
  9241.  move.w d5,d3
  9242.  move.l d5,d6
  9243.  lsr.w #8,d3
  9244.  swap d6
  9245.  move.b d3,d6
  9246.  move.w d0,d3
  9247.  ifeq CHEESEY
  9248.  move.b (a0,d6.w*4),d3
  9249.  endc
  9250.  ifne CHEESEY
  9251.  move.b (a0,d6.w),d3
  9252.  endc
  9253.  
  9254.  add.w d1,d0
  9255.  add.l d2,d5
  9256.  and.l d4,d5
  9257.  move.b (a1,d3.w),(a3)+
  9258. .nosingle1
  9259.  
  9260.  move.w d7,d3
  9261.  asr.w #1,d7
  9262.  btst #0,d3
  9263.  beq.s .nosingle2
  9264.  move.w d5,d3
  9265.  move.l d5,d6
  9266.  lsr.w #8,d3
  9267.  swap d6
  9268.  move.b d3,d6
  9269.  move.w d0,d3
  9270.  ifeq CHEESEY
  9271.  move.b (a0,d6.w*4),d3
  9272.  endc
  9273.  ifne CHEESEY
  9274.  move.b (a0,d6.w),d3
  9275.  endc
  9276.  add.w d1,d0
  9277.  add.l d2,d5
  9278.  and.l d4,d5
  9279.  move.l d5,d6
  9280.  swap d6
  9281.  move.b (a1,d3.w),(a3)+
  9282.  move.w d5,d3
  9283.  lsr.w #8,d3
  9284.  move.b d3,d6
  9285.  move.w d0,d3
  9286.  ifeq CHEESEY
  9287.  move.b (a0,d6.w*4),d3
  9288.  endc
  9289.  ifne CHEESEY
  9290.  move.b (a0,d6.w),d3
  9291.  endc
  9292.  add.w d1,d0
  9293.  add.l d2,d5
  9294.  and.l d4,d5
  9295.  move.b (a1,d3.w),(a3)+
  9296.  
  9297. .nosingle2
  9298.  
  9299.  move.l d5,d6
  9300.  swap d6
  9301.  
  9302.  dbra d7,acrossscrngour
  9303.  rts
  9304.  
  9305.  CNOP 0,4
  9306.  
  9307. acrossscrngour:
  9308.  move.w d5,d3
  9309.  lsr.w #8,d3
  9310.  move.b d3,d6
  9311.  move.w d0,d3
  9312.  ifeq CHEESEY
  9313.  move.b (a0,d6.w*4),d3
  9314.  endc
  9315.  ifne CHEESEY
  9316.  move.b (a0,d6.w),d3
  9317.  endc
  9318.  add.w d1,d0
  9319.  add.l d2,d5
  9320.  and.l d4,d5
  9321.  move.l d5,d6
  9322.  swap d6
  9323.  move.b (a1,d3.w),(a3)+
  9324.  move.w d5,d3
  9325.  lsr.w #8,d3
  9326.  move.b d3,d6
  9327.  move.w d0,d3
  9328.  ifeq CHEESEY
  9329.  move.b (a0,d6.w*4),d3
  9330.  endc
  9331.  ifne CHEESEY
  9332.  move.b (a0,d6.w),d3
  9333.  endc
  9334.  add.w d1,d0
  9335.  add.l d2,d5
  9336.  and.l d4,d5
  9337.  move.l d5,d6
  9338.  swap d6
  9339.  move.b (a1,d3.w),(a3)+
  9340.  move.w d5,d3
  9341.  lsr.w #8,d3
  9342.  move.b d3,d6
  9343.  move.w d0,d3
  9344.  ifeq CHEESEY
  9345.  move.b (a0,d6.w*4),d3
  9346.  endc
  9347.  ifne CHEESEY
  9348.  move.b (a0,d6.w),d3
  9349.  endc
  9350.  add.w d1,d0
  9351.  add.l d2,d5
  9352.  and.l d4,d5
  9353.  move.l d5,d6
  9354.  swap d6
  9355.  move.b (a1,d3.w),(a3)+
  9356.  move.w d5,d3
  9357.  lsr.w #8,d3
  9358.  move.b d3,d6
  9359.  move.w d0,d3
  9360.  ifeq CHEESEY
  9361.  move.b (a0,d6.w*4),d3
  9362.  endc
  9363.  ifne CHEESEY
  9364.  move.b (a0,d6.w),d3
  9365.  endc
  9366.  add.w d1,d0
  9367.  add.l d2,d5
  9368.  and.l d4,d5
  9369.  move.l d5,d6
  9370.  swap d6
  9371.  move.b (a1,d3.w),(a3)+
  9372.  dbra d7,acrossscrngour
  9373.  
  9374.  rts
  9375.  
  9376.  
  9377. gouraudfloorDOUB:
  9378.  
  9379.  move.w leftbright,d0
  9380.  move.l d1,d4
  9381.  move.w brightspd,d1
  9382.  add.w d1,d1
  9383.  add.l d2,d2
  9384.  
  9385.  move.w d7,d3
  9386.  asr.w #1,d7
  9387.  btst #0,d3
  9388.  beq.s .nosingle1
  9389.  move.w d5,d3
  9390.  move.l d5,d6
  9391.  lsr.w #8,d3
  9392.  swap d6
  9393.  move.b d3,d6
  9394.  move.w d0,d3
  9395.  ifeq CHEESEY
  9396.  move.b (a0,d6.w*4),d3
  9397.  endc
  9398.  ifne CHEESEY
  9399.  move.b (a0,d6.w),d3
  9400.  endc
  9401.  add.w d1,d0
  9402.  add.l d2,d5
  9403.  and.l d4,d5
  9404.  move.w (a1,d3.w),(a3)+
  9405. .nosingle1
  9406.  
  9407.  move.w d7,d3
  9408.  asr.w #1,d7
  9409.  btst #0,d3
  9410.  beq.s .nosingle2
  9411.  move.w d5,d3
  9412.  move.l d5,d6
  9413.  lsr.w #8,d3
  9414.  swap d6
  9415.  move.b d3,d6
  9416.  move.w d0,d3
  9417.  ifeq CHEESEY
  9418.  move.b (a0,d6.w*4),d3
  9419.  endc
  9420.  ifne CHEESEY
  9421.  move.b (a0,d6.w),d3
  9422.  endc
  9423.  add.w d1,d0
  9424.  add.l d2,d5
  9425.  and.l d4,d5
  9426.  move.l d5,d6
  9427.  swap d6
  9428.  move.w (a1,d3.w),(a3)+
  9429.  move.w d5,d3
  9430.  lsr.w #8,d3
  9431.  move.b d3,d6
  9432.  move.w d0,d3
  9433.  ifeq CHEESEY
  9434.  move.b (a0,d6.w*4),d3
  9435.  endc
  9436.  ifne CHEESEY
  9437.  move.b (a0,d6.w),d3
  9438.  endc
  9439.  add.w d1,d0
  9440.  add.l d2,d5
  9441.  and.l d4,d5
  9442.  move.w (a1,d3.w),(a3)+
  9443.  
  9444. .nosingle2
  9445.  
  9446.  move.l d5,d6
  9447.  swap d6
  9448.  
  9449.  dbra d7,acrossscrngourD
  9450.  rts
  9451.  
  9452.  CNOP 0,4
  9453.  
  9454. acrossscrngourD:
  9455.  move.w d5,d3
  9456.  lsr.w #8,d3
  9457.  move.b d3,d6
  9458.  move.w d0,d3
  9459.  ifeq CHEESEY
  9460.  move.b (a0,d6.w*4),d3
  9461.  endc
  9462.  ifne CHEESEY
  9463.  move.b (a0,d6.w),d3
  9464.  endc
  9465.  add.w d1,d0
  9466.  add.l d2,d5
  9467.  and.l d4,d5
  9468.  move.l d5,d6
  9469.  swap d6
  9470.  move.w (a1,d3.w),(a3)+
  9471.  move.w d5,d3
  9472.  lsr.w #8,d3
  9473.  move.b d3,d6
  9474.  move.w d0,d3
  9475.  ifeq CHEESEY
  9476.  move.b (a0,d6.w*4),d3
  9477.  endc
  9478.  ifne CHEESEY
  9479.  move.b (a0,d6.w),d3
  9480.  endc
  9481.  add.w d1,d0
  9482.  add.l d2,d5
  9483.  and.l d4,d5
  9484.  move.l d5,d6
  9485.  swap d6
  9486.  move.w (a1,d3.w),(a3)+
  9487.  move.w d5,d3
  9488.  lsr.w #8,d3
  9489.  move.b d3,d6
  9490.  move.w d0,d3
  9491.  ifeq CHEESEY
  9492.  move.b (a0,d6.w*4),d3
  9493.  endc
  9494.  ifne CHEESEY
  9495.  move.b (a0,d6.w),d3
  9496.  endc
  9497.  add.w d1,d0
  9498.  add.l d2,d5
  9499.  and.l d4,d5
  9500.  move.l d5,d6
  9501.  swap d6
  9502.  move.w (a1,d3.w),(a3)+
  9503.  move.w d5,d3
  9504.  lsr.w #8,d3
  9505.  move.b d3,d6
  9506.  move.w d0,d3
  9507.  ifeq CHEESEY
  9508.  move.b (a0,d6.w*4),d3
  9509.  endc
  9510.  ifne CHEESEY
  9511.  move.b (a0,d6.w),d3
  9512.  endc
  9513.  add.w d1,d0
  9514.  add.l d2,d5
  9515.  and.l d4,d5
  9516.  move.l d5,d6
  9517.  swap d6
  9518.  move.w (a1,d3.w),(a3)+
  9519.  dbra d7,acrossscrngourD
  9520.  
  9521.  rts
  9522.  
  9523.  
  9524. ;backbeforegour:
  9525. ; and.w #63*256+63,d5
  9526. ; move.b (a0,d5.w*4),d0
  9527. ; add.l d1,d0
  9528. ; bcc.s .nomoreb
  9529. ; add.w #256,d0
  9530. ;.nomoreb:
  9531. ; add.w a4,d3
  9532. ; move.w (a1,d0.w*2),(a3)+
  9533. ; addx.l d6,d5
  9534. ; dbcs d7,acrossscrngour
  9535. ; dbcc d7,backbeforegour
  9536. ; rts
  9537. ; bra.s past1gour
  9538.  
  9539. ;acrossscrngour:
  9540. ; and.l #$3f3f,d5 
  9541. ; move.b (a0,d5.w*4),d0
  9542. ; add.l d1,d0
  9543. ; bcc.s .nomoreb
  9544. ; add.w #256,d0
  9545. ;.nomoreb:
  9546. ; add.w a4,d3
  9547. ; move.w (a1,d0.w*2),(a3)+
  9548. ; addx.l d2,d5
  9549. ; dbcs d7,acrossscrngour
  9550. ; dbcc d7,backbeforegour
  9551. ;past1gour:
  9552. ; rts
  9553.  
  9554.  move.w d4,d7
  9555.  bne.s .notdoneyet
  9556.  move.l d0,leftbright
  9557.  
  9558.  rts
  9559. .notdoneyet:
  9560.  
  9561.  cmp.w #32,d7
  9562.  ble.s .notoowide
  9563.  move.w #32,d7
  9564. .notoowide
  9565.  sub.w d7,d4  
  9566.  addq #4,a3
  9567.  
  9568. ; dbra d7,backbeforegour
  9569.  rts
  9570.  
  9571.  
  9572. gotoacrossgour:
  9573.  
  9574.  move.w d4,d7
  9575.  bne.s .notdoneyet
  9576.  rts
  9577. .notdoneyet:
  9578.  
  9579.  cmp.w #32,d7
  9580.  ble.s .notoowide
  9581.  move.w #32,d7
  9582. .notoowide
  9583.  sub.w d7,d4  
  9584.  addq #4,a3
  9585.  
  9586.  dbra d7,acrossscrngour
  9587.  rts
  9588.  
  9589.  
  9590. waterpt: dc.l waterlist
  9591.  
  9592. waterlist:
  9593.  dc.l waterfile
  9594.  dc.l waterfile+2
  9595.  dc.l waterfile+256
  9596.  dc.l waterfile+256+2
  9597.  dc.l waterfile+512
  9598.  dc.l waterfile+512+2
  9599.  dc.l waterfile+768
  9600.  dc.l waterfile+768+2
  9601. ; dc.l waterfile+768
  9602. ; dc.l waterfile+512+2
  9603. ; dc.l waterfile+512
  9604. ; dc.l waterfile+256+2
  9605. ; dc.l waterfile+256
  9606. ; dc.l waterfile+2
  9607. endwaterlist:
  9608.  
  9609. watertouse: dc.l waterfile
  9610.  
  9611. wtan: dc.w 0
  9612. wateroff: dc.l 0
  9613.  
  9614. REFLECTIONWATER:
  9615.  
  9616.  move.l d1,d4
  9617.  
  9618.  add.l wateroff,d5
  9619.  
  9620.  move.l #brightentab,a1
  9621.  move.l dst,d0
  9622.  clr.b d0
  9623.  
  9624.  add.w d0,d0
  9625.  cmp.w #12*512,d0
  9626.  blt.s .notoowater
  9627.  move.w #12*512,d0
  9628.  
  9629. .notoowater:
  9630.   
  9631.  adda.w d0,a1
  9632.  
  9633.  move.l dst,d0
  9634.  asl.w #7,d0
  9635.  add.w wtan,d0
  9636.  and.w #8191,d0
  9637.  move.l #SineTable,a0
  9638.  move.w (a0,d0.w),d0
  9639.  ext.l d0
  9640.  
  9641.  move.l dst,d3
  9642.  add.w #300,d3
  9643.  divs d3,d0
  9644.  asr.w #5,d0
  9645.  addq #4,d0
  9646.  cmp.w disttobot,d0
  9647.  blt.s oknotoffbotototr
  9648.  
  9649.  move.w disttobot,d0
  9650.  subq #1,d0
  9651.  
  9652. oknotoffbotototr
  9653.  
  9654. ; move.w dst,d3
  9655. ; asr.w #7,d3
  9656. ; add.w d3,d0
  9657.  
  9658.  muls #320,d0
  9659.  tst.w above
  9660.  beq.s nonnnnnegr
  9661.  neg.l d0
  9662.  
  9663. nonnnnnegr:
  9664.  
  9665.  move.l d0,a6
  9666.  
  9667.  move.l watertouse,a0
  9668.  
  9669. ; move.l #mixtab,a5
  9670.  
  9671.  moveq #0,d1
  9672.  
  9673.  move.w startsmoothx,d3
  9674.  dbra d7,acrossscrnwr
  9675.  rts
  9676.  
  9677. backbeforewr:
  9678.  and.w d1,d5 
  9679.  move.w (a0,d5.w*4),d0
  9680.  move.b (a3,a6.w),d0
  9681.  move.w (a1,d0.w),(a3)+
  9682.  add.w a4,d3
  9683.  addx.l d6,d5
  9684.  dbcs d7,acrossscrnwr
  9685.  dbcc d7,backbeforewr
  9686.  rts
  9687.  
  9688. acrossscrnwr:
  9689.  move.w d5,d3
  9690.  move.l d5,d6
  9691.  lsr.w #8,d3
  9692.  swap d6
  9693.  move.b d3,d6
  9694.  move.w (a0,d6.w*4),d0
  9695.  add.l d2,d5
  9696.  move.w (a4,a6.w),d1
  9697.  addq #2,a4
  9698.  move.b (a3,a6.w),d1
  9699.  move.b (a5,d1.l),d0
  9700.  and.l d4,d5
  9701.  move.w (a1,d0.w),(a3)+
  9702.  dbra d7,acrossscrnwr
  9703.  rts
  9704.  
  9705. texturedwater:
  9706.  
  9707.  move.l d1,d4
  9708.  
  9709.  add.l wateroff,d5
  9710.  
  9711.  move.l #brightentab,a1
  9712.  move.l dst,d0
  9713.  asr.l #1,d0
  9714.  clr.b d0
  9715.  
  9716.  add.w d0,d0
  9717.  cmp.w #9*512,d0
  9718.  blt.s .notoowater
  9719.  move.w #9*512,d0
  9720. .notoowater:
  9721.   
  9722.  adda.w d0,a1
  9723.  
  9724.  move.l dst,d0
  9725.  asl.w #7,d0
  9726.  add.w wtan,d0
  9727.  and.w #8191,d0
  9728.  move.l #SineTable,a0
  9729.  move.w (a0,d0.w),d0
  9730.  ext.l d0
  9731.  
  9732.  move.l dst,d3
  9733.  add.w #300,d3
  9734.  divs d3,d0
  9735.  asr.w #5,d0
  9736.  addq #4,d0
  9737.  cmp.w disttobot,d0
  9738.  blt.s oknotoffbototot
  9739.  
  9740.  move.w disttobot,d0
  9741.  subq #1,d0
  9742.  
  9743. oknotoffbototot
  9744.  
  9745. ; move.w dst,d3
  9746. ; asr.w #7,d3
  9747. ; add.w d3,d0
  9748.  
  9749.  tst.b DOUBLEHEIGHT
  9750.  beq.s .nodoub
  9751.  and.b #$fe,d0
  9752. .nodoub:
  9753.  
  9754.  muls #320,d0
  9755.  tst.w above
  9756.  beq.s nonnnnneg
  9757.  neg.l d0
  9758.  
  9759. nonnnnneg:
  9760.  
  9761.  move.l d0,a6
  9762.  
  9763.  move.l watertouse,a0
  9764.  
  9765.  move.w startsmoothx,d3
  9766.  dbra d7,acrossscrnw
  9767.  rts
  9768.  
  9769. backbeforew:
  9770.  and.w d1,d5
  9771.  move.w (a0,d5.w*4),d0
  9772.  move.b (a3,a6.w),d0
  9773.  move.b (a1,d0.w),(a3)+
  9774.  add.w a4,d3
  9775.  addx.l d6,d5
  9776.  dbcs d7,acrossscrnw
  9777.  dbcc d7,backbeforew
  9778.  rts
  9779.  
  9780. acrossscrnw:
  9781.  move.w d5,d3
  9782.  move.l d5,d6
  9783.  lsr.w #8,d3
  9784.  swap d6
  9785.  move.b d3,d6
  9786.  move.w (a0,d6.w*4),d0
  9787.  add.l d2,d5
  9788.  move.b (a3,a6.w),d0
  9789.  and.l d4,d5
  9790.  move.b (a1,d0.w),(a3)+
  9791.  dbra d7,acrossscrnw
  9792.  rts
  9793.  
  9794.  
  9795. texturedwaterDOUB:
  9796.  
  9797.  move.l d1,d4
  9798.  
  9799.  add.l wateroff,d5
  9800.  
  9801.  move.l #brightentab,a1
  9802.  move.l dst,d0
  9803.  asr.l #1,d0
  9804.  clr.b d0
  9805.  
  9806.  add.w d0,d0
  9807.  cmp.w #9*512,d0
  9808.  blt.s .notoowater
  9809.  move.w #9*512,d0
  9810. .notoowater:
  9811.   
  9812.  adda.w d0,a1
  9813.  
  9814.  move.l dst,d0
  9815.  asl.w #7,d0
  9816.  add.w wtan,d0
  9817.  and.w #8191,d0
  9818.  move.l #SineTable,a0
  9819.  move.w (a0,d0.w),d0
  9820.  ext.l d0
  9821.  
  9822.  move.l dst,d3
  9823.  add.w #300,d3
  9824.  divs d3,d0
  9825.  asr.w #5,d0
  9826.  addq #4,d0
  9827.  cmp.w disttobot,d0
  9828.  blt.s .oknotoffbototot
  9829.  
  9830.  move.w disttobot,d0
  9831.  subq #1,d0
  9832.  
  9833. .oknotoffbototot
  9834.  
  9835. ; move.w dst,d3
  9836. ; asr.w #7,d3
  9837. ; add.w d3,d0
  9838.  
  9839.  tst.b DOUBLEHEIGHT
  9840.  beq.s .nodoub
  9841.  and.b #$fe,d0
  9842. .nodoub:
  9843.  
  9844.  muls #320,d0
  9845.  tst.w above
  9846.  beq.s .nonnnnneg
  9847.  neg.l d0
  9848.  
  9849. .nonnnnneg:
  9850.  
  9851.  move.l d0,a6
  9852.  
  9853.  move.l watertouse,a0
  9854.  
  9855.  add.l d2,d2
  9856.  
  9857.  move.w startsmoothx,d3
  9858.  dbra d7,acrossscrnwD
  9859.  rts
  9860.  
  9861.  
  9862. acrossscrnwD:
  9863.  move.w d5,d3
  9864.  move.l d5,d6
  9865.  lsr.w #8,d3
  9866.  swap d6
  9867.  move.b d3,d6
  9868.  move.w (a0,d6.w*4),d0
  9869.  add.l d2,d5
  9870.  move.b (a3,a6.w),d0
  9871.  and.l d4,d5
  9872.  move.w (a1,d0.w),(a3)+
  9873.  dbra d7,acrossscrnwD
  9874.  rts
  9875.  
  9876.  
  9877. usewater: dc.w 0
  9878.  dc.w 0
  9879. startsmoothx: dc.w 0
  9880.  dc.w 0
  9881. startsmoothz: dc.w 0
  9882.  
  9883. ********************************
  9884. *
  9885.  include "AB3:source_4000/ObjDrawHIRES.s"
  9886. *
  9887. ********************************
  9888.  
  9889. numframes:
  9890.  dc.w 0
  9891.  
  9892. alframe: dc.l 0
  9893.  
  9894. alan:
  9895.  dcb.l 8,0
  9896.  dcb.l 8,1
  9897.  dcb.l 8,2
  9898.  dcb.l 8,3
  9899. endalan:
  9900.  
  9901. alanptr: dc.l alan
  9902.  
  9903. Time2: dc.l 0
  9904. dispco:
  9905.  dc.w 0
  9906.  
  9907.  
  9908. key_interrupt:
  9909.         movem.l    d0-d7/a0-a6,-(sp)
  9910.  
  9911. ;        move.w    INTREQR,d0
  9912. ;        btst    #3,d0
  9913. ;        beq    .not_key
  9914.  
  9915.         move.b    $bfdd00,d0
  9916.         btst    #0,d0
  9917.         bne    .key_cont
  9918. ;        move.b    $bfed01,d0
  9919. ;        btst    #0,d0
  9920. ;        bne    .key_cont
  9921.     
  9922. ;        btst    #3,d0
  9923. ;        beq    .key_cont
  9924.  
  9925.         move.b    $bfec01,d0
  9926.         clr.b    $bfec01
  9927.  
  9928.         tst.b    d0
  9929.         beq    .key_cont
  9930.  
  9931. ;        bset    #6,$bfee01
  9932. ;        move.b    #$f0,$bfe401
  9933. ;        move.b    #$00,$bfe501
  9934. ;        bset    #0,$bfee01
  9935.  
  9936.  
  9937.         not.b    d0
  9938.         ror.b    #1,d0
  9939.         lea.l    KeyMap,a0
  9940.         tst.b    d0
  9941.         bmi.b    .key_up
  9942.         and.w    #$7f,d0
  9943. ;        add.w    #1,d0
  9944.         move.b    #$ff,(a0,d0.w)
  9945.         move.b    d0,lastpressed
  9946.  
  9947.         bra.b    .key_cont2
  9948. .key_up:
  9949.         and.w    #$7f,d0
  9950. ;        add.w    #1,d0
  9951.         move.b    #$00,(a0,d0.w)
  9952.  
  9953. .key_cont2
  9954. ;        btst    #0,$bfed01
  9955. ;        beq    .key_cont2
  9956. ;        move.b    #%00000000,$bfee01
  9957. ;        move.b    #%10001000,$bfed01
  9958.  
  9959. ;alt keys should not be independent so overlay ralt on lalt
  9960.  
  9961.         
  9962. .key_cont
  9963.  
  9964. ;        move.w    #$0008,INTREQ
  9965. .not_key:    ;lea.l    $dff000,a5
  9966.  
  9967. ;        lea.l    _keypressed(pc),a0
  9968. ;        move.b    101(a0),d0    ;read LALT
  9969. ;        or.b    102(a0),d0    ;blend it with RALT
  9970. ;        move.b    d0,127(a0)    ;save in combined position
  9971.  
  9972.         movem.l    (sp)+,d0-d7/a0-a6
  9973.  
  9974.         rts
  9975.  
  9976. lastpressed:    dc.b 0
  9977. KInt_CCode    Ds.b    1
  9978. KInt_Askey    Ds.b    1
  9979. KInt_OCode    Ds.w    1
  9980.  
  9981.  
  9982. OldSpace: dc.b 0
  9983. SpaceTapped: dc.b 0
  9984. PLR1_SPCTAP: dc.b 0
  9985. PLR2_SPCTAP: dc.b 0
  9986. PLR1_Ducked: dc.b 0
  9987. PLR2_Ducked: dc.b 0
  9988.  even
  9989.  
  9990.  include "ab3:source_4000/PLR1CONTROL.s"
  9991.  include "ab3:source_4000/PLR2CONTROL.s"
  9992.  include "ab3:source_4000/FALL.s"
  9993.  
  9994. prot7: dc.w 0
  9995.  
  9996. GOTTOSEND: dc.w 0
  9997.  
  9998. OtherInter:
  9999.  move.w #$0010,$dff000+intreq
  10000.  movem.l d0-d7/a0-a6,-(a7)
  10001.  bra justshake
  10002.  
  10003.     cnop 0,4
  10004.  
  10005. Chan0inter:
  10006.  
  10007.     SAVEREGS
  10008.     jsr    .routine
  10009.     GETREGS
  10010.  
  10011. ;    move.w    #1024+'.',$dff030
  10012.     
  10013.     moveq #1,d0
  10014.     rts
  10015.  
  10016. .routine
  10017.  
  10018.     
  10019. ;w move.w #$0010,$dff000+intreq
  10020.  
  10021.  tst.b doanything
  10022.  bne dosomething
  10023.  
  10024.  movem.l d0-d7/a0-a6,-(a7)
  10025.  bra JUSTSOUNDS
  10026.  
  10027.  rts
  10028.  
  10029. tabheld: dc.w 0
  10030. ObjWork: ds.l 512
  10031. WORKPTR: dc.l 0
  10032. thistime: dc.w 0
  10033.  
  10034. DOALLANIMS:
  10035.  
  10036.  sub.b #1,thistime
  10037.  ble.s .okdosome
  10038.  rts
  10039.  
  10040. .okdosome:
  10041.  move.b #5,thistime
  10042.  
  10043.  
  10044.  move.l #ObjWork,a5
  10045.  move.l ObjectData,a0
  10046. Objectloop2:
  10047.  tst.w (a0)
  10048.  blt doneallobj2
  10049.  move.w 12(a0),d0
  10050.  blt doneobj2
  10051.  move.w d0,GraphicRoom(a0)
  10052.  tst.b worry(a0)
  10053.  beq.s doneobj2
  10054.  
  10055.  move.b 16(a0),d0
  10056.  cmp.b #1,d0
  10057.  blt JUMPALIENANIM
  10058.  beq JUMPOBJECTANIM
  10059. ; cmp.b #2,d0
  10060. ; beq JUMPBULLET
  10061.  
  10062. doneobj2:
  10063.  
  10064.  adda.w #64,a0
  10065.  addq #8,a5
  10066.  bra Objectloop2
  10067.  
  10068. doneallobj2:
  10069.  rts
  10070.  
  10071. JUMPALIENANIM:
  10072.  
  10073.  moveq #0,d0
  10074.  move.b WhichAnim(a0),d0
  10075. ; 0=walking
  10076. ; 1=attacking
  10077. ; 2=getting hit
  10078. ; 3=dying
  10079.  
  10080.  cmp.b #1,d0
  10081.  blt.s ALWALK
  10082.  beq.s ALATTACK
  10083.  
  10084.  cmp.b #3,d0
  10085.  blt ALGETHIT
  10086.  beq ALDIE
  10087.  
  10088.  bra doneobj2
  10089.  
  10090. ALDIE
  10091.  move.l #10,d0
  10092.  bra intowalk
  10093.  
  10094. ALGETHIT:
  10095.  move.l #9,d0
  10096.  bra intowalk
  10097.  
  10098. ALATTACK:
  10099.  move.l #8,d0
  10100.  bra intowalk
  10101.  
  10102. AUXOBJ: dc.w 0
  10103.  
  10104. ALWALK:
  10105.  
  10106.  jsr ViewpointToDraw
  10107.  add.l d0,d0
  10108.  
  10109.  move.l LINKFILE,a6
  10110.  add.l #AlienStats,a6
  10111.  moveq #0,d1
  10112.  move.b TypeOfThing(a0),d1
  10113.  muls #AlienStatLen,d1
  10114.  add.l d1,a6
  10115.  cmp.w #1,A_GFXType(a6)
  10116.  bne.s NOSIDES2
  10117.  
  10118.  moveq #0,d0
  10119. intowalk:
  10120.  
  10121. NOSIDES2:
  10122.  
  10123.  move.b d0,2(a5)
  10124.  move.l LINKFILE,a6
  10125.  
  10126.  add.l #AlienAnimData,a6
  10127.  
  10128.  moveq #0,d1
  10129.  move.b TypeOfThing(a0),d1
  10130.  muls #A_AnimLen,d1
  10131.  add.l d1,a6
  10132.  
  10133. ; move.l ANIMPOINTER,a6
  10134.  
  10135.  muls #A_OptLen,d0
  10136.  add.w d0,a6
  10137.  
  10138.  move.w SecTimer(a0),d1
  10139.  move.w d1,d2
  10140.  muls #A_FrameLen,d1
  10141.  
  10142.  moveq #0,d0
  10143.  move.b 5(a6,d1.w),d0
  10144.  beq.s .nosoundmake
  10145.  
  10146.  movem.l d0-d7/a0-a6,-(a7)
  10147.  subq #1,d0
  10148.  move.w d0,Samplenum
  10149.  clr.b notifplaying
  10150.  move.b 1(a0),IDNUM
  10151.  move.w #80,Noisevol
  10152.  move.l #ObjRotated,a1
  10153.  move.w (a0),d0
  10154.  lea (a1,d0.w*8),a1
  10155.  move.l (a1),Noisex
  10156.  jsr MakeSomeNoise
  10157.  movem.l (a7)+,d0-d7/a0-a6
  10158. .nosoundmake
  10159.  
  10160.  move.b 6(a6,d1.w),d0
  10161.  beq.s .noaction
  10162.  add.b #1,(a5)
  10163.  move.b d2,1(a5)
  10164. .noaction
  10165.  
  10166.  addq #1,d2
  10167.  
  10168.  moveq #0,d0
  10169.  move.b 7(a6,d1.w),d0
  10170.  beq.s .nospecial
  10171.  
  10172.  move.b d0,d3
  10173.  and.w #63,d3
  10174.  lsr.w #6,d0
  10175.  cmp.w #2,d0
  10176.  blt.s .storeval
  10177.  beq.s .randval
  10178.  
  10179.  sub.b #1,4(a5)
  10180.  beq.s .nospecial
  10181.  
  10182.  move.w d3,d2
  10183.  bra.s .nospecial
  10184.  
  10185. .randval:
  10186.  jsr GetRand
  10187.  divs d3,d0
  10188.  swap d0
  10189.  move.w d0,d3
  10190.  
  10191. .storeval:
  10192.  move.b d3,4(a5)
  10193. .nospecial:
  10194.  
  10195.  move.w d2,d3
  10196.  muls #A_FrameLen,d3
  10197.  tst.b (a6,d3.w)
  10198.  bge.s .noendanim
  10199.  st 3(a5)
  10200.  move.w #0,d2
  10201. .noendanim
  10202.  move.w d2,SecTimer(a0)
  10203.  
  10204.  bra doneobj2
  10205.  
  10206.  
  10207. JUMPOBJECTANIM:
  10208.  bra doneobj2
  10209.  
  10210. timetodamage: dc.w 0
  10211. SAVESAVE: dc.w 0
  10212.  
  10213. dosomething:
  10214.  
  10215.  
  10216.  
  10217.  addq.w #1,FramesToDraw
  10218.  movem.l d0-d7/a0-a6,-(a7)
  10219.  
  10220.  jsr NARRATOR
  10221.  
  10222.  bsr DOALLANIMS
  10223.  
  10224.  sub.w #1,timetodamage
  10225.  bgt.s .nodam
  10226.  
  10227.  move.w #100,timetodamage
  10228.  
  10229.  move.l PLR1_Roompt,a0
  10230.  move.w ToFloorNoise(a0),d0
  10231.  tst.b PLR1_StoodInTop
  10232.  beq.s .okinbot
  10233.  move.w ToUpperFloorNoise(a0),d0
  10234. .okinbot:
  10235.  
  10236.  move.l LINKFILE,a0
  10237.  add.l #FloorData,a0
  10238.  move.w (a0,d0.w*4),d0    ; damage. 
  10239.  move.l PLR1_Obj,a0
  10240.  add.b d0,damagetaken(a0)
  10241.  
  10242.  move.l PLR2_Roompt,a0
  10243.  move.w ToFloorNoise(a0),d0
  10244.  tst.b PLR2_StoodInTop
  10245.  beq.s .okinbot2
  10246.  move.w ToUpperFloorNoise(a0),d0
  10247. .okinbot2:
  10248.  
  10249.  move.l LINKFILE,a0
  10250.  add.l #FloorData,a0
  10251.  move.w (a0,d0.w*4),d0    ; damage. 
  10252.  
  10253.  move.l PLR2_Obj,a0
  10254.  add.b d0,damagetaken(a0)
  10255.  
  10256. .nodam:
  10257.  
  10258.  move.l #KeyMap,a5
  10259.  
  10260.  tst.b $42(a5)
  10261.  bne.s .tabprsd
  10262.  clr.b tabheld
  10263.  bra.s .noswitch
  10264.  
  10265. .tabprsd:
  10266.  tst.b tabheld
  10267.  bne.s .noswitch
  10268.  not.b MAPON
  10269.  st tabheld
  10270. .noswitch
  10271.  
  10272.  tst.b $3e(a5)
  10273.  sne d0
  10274.  tst.b $1e(a5)
  10275.  sne d1
  10276.  tst.b $2d(a5)
  10277.  sne d2
  10278.  tst.b $2f(a5)
  10279.  sne d3
  10280.  
  10281.  tst.b $3d(a5)
  10282.  sne d4
  10283.  tst.b $3f(a5)
  10284.  sne d5
  10285.  tst.b $1d(a5)
  10286.  sne d6
  10287.  tst.b $1f(a5)
  10288.  sne d7
  10289.  
  10290.  or.b d4,d0
  10291.  or.b d5,d0
  10292.  or.b d6,d1
  10293.  or.b d7,d1
  10294.  or.b d4,d2
  10295.  or.b d6,d2
  10296.  or.b d7,d3
  10297.  or.b d5,d3
  10298.  
  10299.  move.w MAPBRIGHT,d4
  10300.  add.w #2,d4
  10301.  clr.l d5
  10302.  bset d4,d5
  10303.  
  10304.  tst.b d0
  10305.  beq.s .nomapup
  10306.  sub.w d5,mapzoff
  10307. .nomapup 
  10308.  
  10309.  tst.b d1
  10310.  beq.s .nomapdown
  10311.  add.w d5,mapzoff
  10312. .nomapdown 
  10313.  
  10314.  tst.b d2
  10315.  beq.s .nomapleft
  10316.  add.w d5,mapxoff
  10317. .nomapleft 
  10318.  
  10319.  tst.b d3
  10320.  beq.s .nomapright
  10321.  sub.w d5,mapxoff
  10322. .nomapright 
  10323.  
  10324.  tst.b $2e(a5)
  10325.  beq.s .nomapcentre
  10326.  
  10327.  move.w #0,mapxoff
  10328.  move.w #0,mapzoff
  10329.  
  10330. .nomapcentre
  10331.  
  10332. ; move.w STOPOFFSET,d0
  10333. ; tst.b 27(a5)
  10334. ; beq.s .nolookup
  10335. ; sub.w #5,d0
  10336. ; cmp.w #-80,d0
  10337. ; bgt.s .nolookup
  10338. ; move.w #-80,d0
  10339. ;.nolookup:
  10340. ; tst.b 42(a5)
  10341. ; beq.s .nolookdown
  10342. ; add.w #5,d0
  10343. ; cmp.w #80,d0
  10344. ; blt.s .nolookdown
  10345. ; move.w #80,d0
  10346. ;.nolookdown:
  10347. ;
  10348. ; move.w d0,STOPOFFSET
  10349. ; neg.w d0
  10350. ; add.w #120,d0
  10351. ; move.w d0,SMIDDLEY
  10352. ; muls #320*2,d0
  10353. ; move.l d0,SBIGMIDDLEY
  10354.  
  10355.  
  10356. ; jsr INITREC
  10357. ; jsr RECEIVE
  10358.  
  10359. ; tst.l BUFFER
  10360. ; beq.s justshake
  10361. ; st GOTTOSEND
  10362. ; move.l #OtherInter,$6c
  10363.  
  10364. justshake:
  10365.  
  10366.  cmp.b #'b',Prefsfile+3
  10367.  bne.s .noback
  10368.  jsr mt_music
  10369. .noback:
  10370.  
  10371.  bra dontshowtime
  10372.  
  10373.  tst.b oktodisplay
  10374.  beq dontshowtime
  10375.  clr.b oktodisplay
  10376.  subq.w #1,dispco
  10377.  bgt dontshowtime
  10378.  move.w #10,dispco
  10379.  
  10380.  move.l #TimerScr+10,a0
  10381.  move.l TimeCount,d0
  10382.  bge.s timenotneg
  10383.  move.l #1111*256,d0
  10384. timenotneg:
  10385.  asr.l #8,d0
  10386.  move.l #digits,a1
  10387.  move.w #7,d2
  10388. digitlop
  10389.  divs #10,d0
  10390.  swap d0
  10391.  lea (a1,d0.w*8),a2
  10392.  move.b (a2)+,(a0)
  10393.  move.b (a2)+,24(a0)
  10394.  move.b (a2)+,24*2(a0)
  10395.  move.b (a2)+,24*3(a0)
  10396.  move.b (a2)+,24*4(a0)
  10397.  move.b (a2)+,24*5(a0)
  10398.  move.b (a2)+,24*6(a0)
  10399.  move.b (a2)+,24*7(a0)
  10400.  subq #1,a0
  10401.  swap d0
  10402.  ext.l d0
  10403.  dbra d2,digitlop
  10404.  
  10405.  move.l #TimerScr+10+24*10,a0
  10406.  move.l NumTimes,d0
  10407.  move.l #digits,a1
  10408.  move.w #3,d2
  10409. digitlop2
  10410.  divs #10,d0
  10411.  swap d0
  10412.  lea (a1,d0.w*8),a2
  10413.  move.b (a2)+,(a0)
  10414.  move.b (a2)+,24(a0)
  10415.  move.b (a2)+,24*2(a0)
  10416.  move.b (a2)+,24*3(a0)
  10417.  move.b (a2)+,24*4(a0)
  10418.  move.b (a2)+,24*5(a0)
  10419.  move.b (a2)+,24*6(a0)
  10420.  move.b (a2)+,24*7(a0)
  10421.  subq #1,a0
  10422.  swap d0
  10423.  ext.l d0
  10424.  dbra d2,digitlop2
  10425.  
  10426.  move.l #TimerScr+10+24*20,a0
  10427.  moveq #0,d0
  10428.  move.w FramesToDraw,d0
  10429.  move.l #digits,a1
  10430.  move.w #2,d2
  10431. digitlop3
  10432.  divs #10,d0
  10433.  swap d0
  10434.  lea (a1,d0.w*8),a2
  10435.  move.b (a2)+,(a0)
  10436.  move.b (a2)+,24(a0)
  10437.  move.b (a2)+,24*2(a0)
  10438.  move.b (a2)+,24*3(a0)
  10439.  move.b (a2)+,24*4(a0)
  10440.  move.b (a2)+,24*5(a0)
  10441.  move.b (a2)+,24*6(a0)
  10442.  move.b (a2)+,24*7(a0)
  10443.  subq #1,a0
  10444.  swap d0
  10445.  ext.l d0
  10446.  dbra d2,digitlop3
  10447.  
  10448. dontshowtime:
  10449.  
  10450.  
  10451.  move.l alanptr,a0
  10452.  move.l (a0)+,alframe
  10453.  cmp.l #endalan,a0
  10454.  blt.s nostartalan
  10455.  move.l #alan,a0
  10456. nostartalan:
  10457.  move.l a0,alanptr
  10458.  
  10459.  
  10460.  tst.b READCONTROLS
  10461.  beq nocontrols
  10462.  
  10463.  cmp.b #'s',mors
  10464.  beq control2
  10465.  
  10466.  tst.w PLAYERONEHEALTH
  10467.  bgt .propercontrol
  10468.  
  10469.  move.l #7*2116,hitcol
  10470.  move.l #PLR1_Obj,a0
  10471.  move.w #-1,12+128(a0)
  10472.  
  10473.  clr.b PLR1_fire
  10474.  clr.b PLR1_clicked
  10475.  move.w #0,ADDTOBOBBLE
  10476.  move.l #playercrouched,PLR1s_height
  10477.  move.w #-80,d0
  10478.  move.w d0,STOPOFFSET
  10479.  neg.w d0
  10480.  add.w TOTHEMIDDLE,d0
  10481.  move.w d0,SMIDDLEY
  10482.  muls #320,d0
  10483.  move.l d0,SBIGMIDDLEY
  10484.  jsr PLR1_fall
  10485.  
  10486.  move.l PLR1s_xspdval,d6
  10487.  move.l PLR1s_zspdval,d7
  10488.  
  10489.  tst.b SLOWDOWN
  10490.  beq.s .nofriction
  10491.  
  10492.  neg.l d6
  10493.  ble.s .nobug1
  10494.  asr.l #3,d6
  10495.  add.l #1,d6
  10496.  bra.s .bug1
  10497. .nobug1
  10498.  asr.l #3,d6
  10499. .bug1:
  10500.  
  10501.  neg.l d7
  10502.  ble.s .nobug2
  10503.  asr.l #3,d7
  10504.  add.l #1,d7
  10505.  bra.s .bug2
  10506. .nobug2
  10507.  asr.l #3,d7
  10508. .bug2: 
  10509.  
  10510.  add.l d6,PLR1s_xspdval
  10511.  add.l d7,PLR1s_zspdval
  10512.  
  10513. .nofriction:
  10514.  move.l PLR1s_xspdval,d6
  10515.  move.l PLR1s_zspdval,d7
  10516.  add.l d6,PLR1s_xoff
  10517.  add.l d7,PLR1s_zoff
  10518.  
  10519.  move.w PLR1s_angspd,d3
  10520.  tst.b SLOWDOWN
  10521.  beq.s .nofric
  10522.  asr.w #2,d3
  10523.  bge.s .nneg
  10524.  addq #1,d3
  10525. .nneg:
  10526. .nofric:
  10527.  
  10528.  move.w d3,PLR1s_angspd
  10529.  add.w d3,PLR1s_angpos
  10530.  add.w d3,PLR1s_angpos
  10531.  and.w #8190,PLR1s_angpos
  10532.  
  10533.  bra nocontrols
  10534.  
  10535. .propercontrol:
  10536.  
  10537.  tst.b PLR1MOUSE
  10538.  beq.s PLR1_nomouse
  10539.  bsr PLR1_mouse_control
  10540. PLR1_nomouse:
  10541.  tst.b PLR1KEYS
  10542.  beq.s PLR1_nokeys
  10543.  bsr PLR1_keyboard_control
  10544. PLR1_nokeys:
  10545. ; tst.b PLR1PATH
  10546. ; beq.s PLR1_nopath
  10547. ; bsr PLR1_follow_path
  10548. ;PLR1_nopath:
  10549.  tst.b PLR1JOY
  10550.  beq.s PLR1_nojoy
  10551.  bsr PLR1_JoyStick_control
  10552. PLR1_nojoy: 
  10553.  bra nocontrols
  10554.  
  10555. control2:
  10556.  
  10557.  tst.w PLAYERTWOHEALTH
  10558.  bgt .propercontrol
  10559.  
  10560.  move.l #7*2116,hitcol
  10561.  move.l #PLR1_Obj,a0
  10562.  move.w #-1,12+128(a0)
  10563.  clr.b PLR2_fire
  10564.  move.w #0,ADDTOBOBBLE
  10565.  move.l #playercrouched,PLR2s_height
  10566.  move.w #-80,d0
  10567.  move.w d0,STOPOFFSET
  10568.  neg.w d0
  10569.  add.w TOTHEMIDDLE,d0
  10570.  move.w d0,SMIDDLEY
  10571.  muls #320,d0
  10572.  move.l d0,SBIGMIDDLEY
  10573.  jsr PLR2_fall
  10574.  
  10575.  move.l PLR2s_xspdval,d6
  10576.  move.l PLR2s_zspdval,d7
  10577.  
  10578.  tst.b SLOWDOWN
  10579.  beq.s .nofriction
  10580.  
  10581.  neg.l d6
  10582.  ble.s .nobug1
  10583.  asr.l #3,d6
  10584.  add.l #1,d6
  10585.  bra.s .bug1
  10586. .nobug1
  10587.  asr.l #3,d6
  10588. .bug1:
  10589.  
  10590.  neg.l d7
  10591.  ble.s .nobug2
  10592.  asr.l #3,d7
  10593.  add.l #1,d7
  10594.  bra.s .bug2
  10595. .nobug2
  10596.  asr.l #3,d7
  10597. .bug2: 
  10598.  
  10599.  add.l d6,PLR2s_xspdval
  10600.  add.l d7,PLR2s_zspdval
  10601.  
  10602. .nofriction:
  10603.  move.l PLR2s_xspdval,d6
  10604.  move.l PLR2s_zspdval,d7
  10605.  add.l d6,PLR2s_xoff
  10606.  add.l d7,PLR2s_zoff
  10607.  
  10608.  move.w PLR2s_angspd,d3
  10609.  tst.b SLOWDOWN
  10610.  beq.s .nofric
  10611.  asr.w #2,d3
  10612.  bge.s .nneg
  10613.  addq #1,d3
  10614. .nneg:
  10615. .nofric:
  10616.  
  10617.  move.w d3,PLR2s_angspd
  10618.  add.w d3,PLR2s_angpos
  10619.  add.w d3,PLR2s_angpos
  10620.  and.w #8190,PLR2s_angpos
  10621.  
  10622.  bra.s nocontrols
  10623.  
  10624. .propercontrol:
  10625.  tst.b PLR2MOUSE
  10626.  beq.s PLR2_nomouse
  10627.  bsr PLR2_mouse_control
  10628. PLR2_nomouse:
  10629.  tst.b PLR2KEYS
  10630.  beq.s PLR2_nokeys
  10631.  bsr PLR2_keyboard_control
  10632. PLR2_nokeys:
  10633. ; tst.b PLR2PATH
  10634. ; beq.s PLR2_nopath
  10635. ; bsr PLR1_follow_path
  10636. ;PLR2_nopath:
  10637.  tst.b PLR2JOY
  10638.  beq.s PLR2_nojoy
  10639.  bsr PLR2_JoyStick_control
  10640. PLR2_nojoy: 
  10641.  
  10642.  
  10643. nocontrols:
  10644.  
  10645.  move.l #$dff000,a6
  10646.  
  10647.  cmp.b #'4',Prefsfile+1
  10648.  bne.s nomuckabout
  10649.  
  10650.  move.w #$0,d0 
  10651.  tst.b NoiseMade0LEFT
  10652.  beq.s noturnoff0
  10653.  move.w #1,d0
  10654. noturnoff0:
  10655.  tst.b NoiseMade0RIGHT
  10656.  beq.s noturnoff1
  10657.  or.w #2,d0
  10658. noturnoff1:
  10659.  tst.b NoiseMade1RIGHT
  10660.  beq.s noturnoff2
  10661.  or.w #4,d0
  10662. noturnoff2:
  10663.  tst.b NoiseMade1LEFT
  10664.  beq.s noturnoff3
  10665.  or.w #8,d0
  10666. noturnoff3:
  10667.     move.w d0,dmacon(a6)
  10668.  
  10669. nomuckabout:
  10670.  
  10671.  
  10672. ; tst.b PLR2_fire
  10673. ; beq.s firenotpressed2
  10674. ; fire was pressed last time.
  10675. ; btst #7,$bfe001
  10676. ; bne.s firenownotpressed2
  10677. ; fire is still pressed this time.
  10678. ; st PLR2_fire
  10679. ; bra dointer
  10680.  
  10681. firenownotpressed2:
  10682. ; fire has been released.
  10683. ; clr.b PLR2_fire
  10684. ; bra dointer
  10685.  
  10686. firenotpressed2
  10687.  
  10688. ; fire was not pressed last frame...
  10689.  
  10690. ; btst #7,$bfe001
  10691. ; if it has still not been pressed, go back above
  10692. ; bne.s firenownotpressed2
  10693. ; fire was not pressed last time, and was this time, so has
  10694. ; been clicked.
  10695. ; st PLR2_clicked
  10696. ; st PLR2_fire
  10697.  
  10698. dointer
  10699.  
  10700. JUSTSOUNDS:
  10701.  
  10702.  tst.b dosounds
  10703.  beq.s .notthing
  10704.  
  10705.  cmp.b #'4',Prefsfile+1
  10706.     beq fourchannel
  10707.  
  10708.  btst #1,$dff000+intreqr
  10709.     bne.s newsampbitl
  10710.  
  10711. .notthing:
  10712.  
  10713.  movem.l (a7)+,d0-d7/a0-a6
  10714.  
  10715.  moveq #0,d0
  10716.  rts
  10717.  
  10718.  
  10719. dosounds: dc.w 0
  10720.  
  10721. swappedem: dc.w 0
  10722.  
  10723. newsampbitl:
  10724.  
  10725.  move.w #$820f,$dff000+dmacon
  10726.  
  10727.  move.w #$200,$dff000+intreq
  10728.  
  10729. ; tst.b CHANNELDATA
  10730. ; bne nochannel0
  10731.  
  10732.  move.l pos0LEFT,a0
  10733.  move.l pos2LEFT,a1
  10734.  
  10735.  move.l #tab,a2
  10736.  
  10737.  moveq #0,d0
  10738.  moveq #0,d1
  10739.  move.b vol0left,d0
  10740.  move.b vol2left,d1
  10741.  cmp.b d1,d0
  10742.  slt swappedem
  10743.  bge.s fbig0
  10744.  
  10745. ; d1 is bigger so scale d0 and use d1
  10746. ; as audiochannel volume.
  10747.  
  10748.  exg a0,a1
  10749.  asl.w #6,d0
  10750.  divs d1,d0
  10751.  lsl.w #8,d0
  10752.  adda.w d0,a2
  10753.  move.w d1,$dff0a8
  10754.  bra.s donechan0
  10755.  
  10756. fbig0:
  10757.  tst.w d0
  10758.  beq.s donechan0
  10759.  asl.w #6,d1
  10760.  divs d0,d1
  10761.  lsl.w #8,d1
  10762.  adda.w d1,a2
  10763.  move.w d0,$dff0a8
  10764.  
  10765. donechan0:
  10766.  
  10767.  move.l Aupt0,a3
  10768.  move.l a3,$dff0a0
  10769.  move.l Auback0,Aupt0
  10770.  move.l a3,Auback0
  10771.  
  10772.  move.l Auback0,a3
  10773.  
  10774.  moveq #0,d0
  10775.  moveq #0,d1
  10776.  moveq #0,d2
  10777.  moveq #0,d3
  10778.  moveq #0,d4
  10779.  moveq #0,d5
  10780.  move.w #49,d7
  10781. loop:
  10782.  move.l (a0)+,d0
  10783.  move.b (a1)+,d1
  10784.  move.b (a1)+,d2
  10785.  move.b (a1)+,d3
  10786.  move.b (a1)+,d4
  10787.  move.b (a2,d3.w),d5
  10788.  swap d5
  10789.  move.b (a2,d1.w),d5
  10790.  asl.l #8,d5
  10791.  move.b (a2,d2.w),d5
  10792.  swap d5
  10793.  move.b (a2,d4.w),d5
  10794.  add.l d5,d0
  10795.  move.l d0,(a3)+
  10796.  dbra d7,loop
  10797.  
  10798.  tst.b swappedem
  10799.  beq.s .ok23
  10800.  exg a0,a1
  10801. .ok23:
  10802.  
  10803.  cmp.l Samp0endLEFT,a0
  10804.  blt.s .notoffendsamp1
  10805.  move.l #empty,a0
  10806.  move.l #emptyend,Samp0endLEFT
  10807.  move.b #0,vol0left
  10808.  st LEFTCHANDATA+1
  10809.  move.w #0,LEFTCHANDATA+2
  10810. .notoffendsamp1:
  10811.  
  10812.  cmp.l Samp2endLEFT,a1
  10813.  blt.s .notoffendsamp2
  10814.  move.l #empty,a1
  10815.  move.l #emptyend,Samp2endLEFT
  10816.  move.b #0,vol2left
  10817.  st LEFTCHANDATA+1+8
  10818.  move.w #0,LEFTCHANDATA+2+8
  10819. .notoffendsamp2:
  10820.  
  10821.  move.l a0,pos0LEFT
  10822.  move.l a1,pos2LEFT
  10823.  
  10824. nochannel0:
  10825.  
  10826.  tst.b CHANNELDATA+16
  10827.  bne nochannel1
  10828.  
  10829.  
  10830.  move.l pos0RIGHT,a0
  10831.  move.l pos2RIGHT,a1
  10832.  
  10833.  move.l Aupt1,a3
  10834.  move.l a3,$dff0b0
  10835.  move.l Auback1,Aupt1
  10836.  move.l a3,Auback1
  10837.  
  10838.  move.l #tab,a2
  10839.  
  10840.  moveq #0,d0
  10841.  moveq #0,d1
  10842.  move.b vol0right,d0
  10843.  move.b vol2right,d1
  10844.  cmp.b d1,d0
  10845.  slt swappedem
  10846.  bge.s fbig1
  10847.  
  10848. ; d1 is bigger so scale d0 and use d1
  10849. ; as audiochannel volume.
  10850.  
  10851.  exg a0,a1
  10852.  asl.w #6,d0
  10853.  divs d1,d0
  10854.  lsl.w #8,d0
  10855.  adda.w d0,a2
  10856.  move.w d1,$dff0b8
  10857.  bra.s donechan1
  10858.  
  10859. fbig1:
  10860.  tst.w d0
  10861.  beq.s donechan1
  10862.  asl.w #6,d1
  10863.  divs d0,d1
  10864.  lsl.w #8,d1
  10865.  adda.w d1,a2
  10866.  move.w d0,$dff0b8
  10867.  
  10868. donechan1:
  10869.  moveq #0,d0
  10870.  moveq #0,d1
  10871.  moveq #0,d2
  10872.  moveq #0,d3
  10873.  moveq #0,d4
  10874.  moveq #0,d5
  10875.  move.w #49,d7
  10876. loop2:
  10877.  move.l (a0)+,d0
  10878.  move.b (a1)+,d1
  10879.  move.b (a1)+,d2
  10880.  move.b (a1)+,d3
  10881.  move.b (a1)+,d4
  10882.  move.b (a2,d3.w),d5
  10883.  swap d5
  10884.  move.b (a2,d1.w),d5
  10885.  asl.l #8,d5
  10886.  move.b (a2,d2.w),d5
  10887.  swap d5
  10888.  move.b (a2,d4.w),d5
  10889.  add.l d5,d0
  10890.  move.l d0,(a3)+
  10891.  dbra d7,loop2
  10892.  
  10893.  tst.b swappedem
  10894.  beq.s ok01
  10895.  exg a0,a1
  10896. ok01:
  10897.  
  10898.  cmp.l Samp0endRIGHT,a0
  10899.  blt.s .notoffendsamp1
  10900.  move.l #empty,a0
  10901.  move.l #emptyend,Samp0endRIGHT
  10902.  move.b #0,vol0right
  10903.  st RIGHTCHANDATA+1
  10904.  move.w #0,RIGHTCHANDATA+2
  10905. .notoffendsamp1:
  10906.  
  10907.  cmp.l Samp2endRIGHT,a1
  10908.  blt.s .notoffendsamp2
  10909.  move.l #empty,a1
  10910.  move.l #emptyend,Samp2endRIGHT
  10911.  move.b #0,vol2right
  10912.  st RIGHTCHANDATA+1+8
  10913.  move.w #0,RIGHTCHANDATA+2+8
  10914. .notoffendsamp2:
  10915.  
  10916.  move.l a0,pos0RIGHT
  10917.  move.l a1,pos2RIGHT
  10918.  
  10919. nochannel1:
  10920.  
  10921. ******************* Other two channels
  10922.  
  10923.  move.l pos1LEFT,a0
  10924.  move.l pos3LEFT,a1
  10925.  
  10926.  move.l #tab,a2
  10927.  
  10928.  moveq #0,d0
  10929.  moveq #0,d1
  10930.  move.b vol1left,d0
  10931.  move.b vol3left,d1
  10932.  cmp.b d1,d0
  10933.  slt swappedem
  10934.  bge.s fbig2
  10935.  
  10936. ; d1 is bigger so scale d0 and use d1
  10937. ; as audiochannel volume.
  10938.  
  10939.  exg a0,a1
  10940.  asl.w #6,d0
  10941.  divs d1,d0
  10942.  lsl.w #8,d0
  10943.  adda.w d0,a2
  10944.  move.w d1,$dff0d8
  10945.  bra.s donechan2
  10946.  
  10947. fbig2:
  10948.  tst.w d0
  10949.  beq.s donechan2
  10950.  asl.w #6,d1
  10951.  divs d0,d1
  10952.  lsl.w #8,d1
  10953.  adda.w d1,a2
  10954.  move.w d0,$dff0d8
  10955.  
  10956. donechan2:
  10957.  
  10958.  move.l Aupt2,a3
  10959.  move.l a3,$dff0d0
  10960.  move.l Auback2,Aupt2
  10961.  move.l a3,Auback2
  10962.  
  10963.  moveq #0,d0
  10964.  moveq #0,d1
  10965.  moveq #0,d2
  10966.  moveq #0,d3
  10967.  moveq #0,d4
  10968.  moveq #0,d5
  10969.  move.w #49,d7
  10970. loop3:
  10971.  move.l (a0)+,d0
  10972.  move.b (a1)+,d1
  10973.  move.b (a1)+,d2
  10974.  move.b (a1)+,d3
  10975.  move.b (a1)+,d4
  10976.  move.b (a2,d3.w),d5
  10977.  swap d5
  10978.  move.b (a2,d1.w),d5
  10979.  asl.l #8,d5
  10980.  move.b (a2,d2.w),d5
  10981.  swap d5
  10982.  move.b (a2,d4.w),d5
  10983.  add.l d5,d0
  10984.  move.l d0,(a3)+
  10985.  dbra d7,loop3
  10986.  
  10987.  tst.b swappedem
  10988.  beq.s .ok23
  10989.  exg a0,a1
  10990. .ok23:
  10991.  
  10992.  cmp.l Samp1endLEFT,a0
  10993.  blt.s .notoffendsamp3
  10994.  move.l #empty,a0
  10995.  move.l #emptyend,Samp1endLEFT
  10996.  move.b #0,vol1left
  10997.  st LEFTCHANDATA+1+4
  10998.  move.w #0,LEFTCHANDATA+2+4
  10999. .notoffendsamp3:
  11000.  
  11001.  cmp.l Samp3endLEFT,a1
  11002.  blt.s .notoffendsamp4
  11003.  move.l #empty,a1
  11004.  move.l #emptyend,Samp3endLEFT
  11005.  move.b #0,vol3left
  11006.  st LEFTCHANDATA+1+12
  11007.  move.w #0,LEFTCHANDATA+2+12
  11008. .notoffendsamp4:
  11009.  
  11010.  move.l a0,pos1LEFT
  11011.  move.l a1,pos3LEFT
  11012.  
  11013.  move.l pos1RIGHT,a0
  11014.  move.l pos3RIGHT,a1
  11015.  
  11016.  move.l Aupt3,a3
  11017.  move.l a3,$dff0c0
  11018.  move.l Auback3,Aupt3
  11019.  move.l a3,Auback3
  11020.  
  11021.  move.l #tab,a2
  11022.  
  11023.  moveq #0,d0
  11024.  moveq #0,d1
  11025.  move.b vol1right,d0
  11026.  move.b vol3right,d1
  11027.  cmp.b d1,d0
  11028.  slt.s swappedem
  11029.  bge.s fbig3
  11030.  
  11031.  exg a0,a1
  11032.  asl.w #6,d0
  11033.  divs d1,d0
  11034.  lsl.w #8,d0
  11035.  adda.w d0,a2
  11036.  move.w d1,$dff0c8
  11037.  bra.s donechan3
  11038.  
  11039. fbig3:
  11040.  tst.w d0
  11041.  beq.s donechan3
  11042.  asl.w #6,d1
  11043.  divs d0,d1
  11044.  lsl.w #8,d1
  11045.  adda.w d1,a2
  11046.  move.w d0,$dff0c8
  11047. donechan3:
  11048.  
  11049.  moveq #0,d0
  11050.  moveq #0,d1
  11051.  moveq #0,d2
  11052.  moveq #0,d3
  11053.  moveq #0,d4
  11054.  moveq #0,d5
  11055.  move.w #49,d7
  11056. loop4:
  11057.  move.l (a0)+,d0
  11058.  move.b (a1)+,d1
  11059.  move.b (a1)+,d2
  11060.  move.b (a1)+,d3
  11061.  move.b (a1)+,d4
  11062.  move.b (a2,d3.w),d5
  11063.  swap d5
  11064.  move.b (a2,d1.w),d5
  11065.  asl.l #8,d5
  11066.  move.b (a2,d2.w),d5
  11067.  swap d5
  11068.  move.b (a2,d4.w),d5
  11069.  add.l d5,d0
  11070.  move.l d0,(a3)+
  11071.  dbra d7,loop4
  11072.  
  11073.  tst.b swappedem
  11074.  beq.s .ok23
  11075.  exg a0,a1
  11076. .ok23:
  11077.  
  11078.  cmp.l Samp1endRIGHT,a0
  11079.  blt.s notoffendsamp3
  11080.  move.l #empty,a0
  11081.  move.l #emptyend,Samp1endRIGHT
  11082.  move.b #0,vol1right
  11083.  st RIGHTCHANDATA+1+4
  11084.  move.w #0,RIGHTCHANDATA+2+4
  11085. notoffendsamp3:
  11086.  
  11087.  cmp.l Samp3endRIGHT,a1
  11088.  blt.s notoffendsamp4
  11089.  move.l #empty,a1
  11090.  move.l #emptyend,Samp3endRIGHT
  11091.  move.b #0,vol3right
  11092.  st RIGHTCHANDATA+1+12
  11093.  move.w #0,RIGHTCHANDATA+2+12
  11094. notoffendsamp4:
  11095.  
  11096.  move.l a0,pos1RIGHT
  11097.  move.l a1,pos3RIGHT
  11098.  
  11099.  movem.l (a7)+,d0-d7/a0-a6
  11100.  tst.b counting
  11101.  beq .nostartcounter
  11102.  JSR STARTCOUNT
  11103. .nostartcounter:
  11104.  
  11105.  moveq #0,d0
  11106.  rts
  11107.  
  11108. ***********************************
  11109. * 4 channel sound routine
  11110. ***********************************
  11111.  
  11112. fourchannel:
  11113.  
  11114.  move.l #$dff000,a6
  11115.  
  11116.  btst #7,intreqrl(a6)
  11117.  beq.s nofinish0
  11118. ; move.w #0,LEFTCHANDATA+2
  11119. ; st LEFTCHANDATA+1
  11120.  move.l #null,$a0(a6)
  11121.  move.w #100,$a4(a6) 
  11122.  move.w #$0080,intreq(a6)
  11123. nofinish0:
  11124.  
  11125.  tst.b NoiseMade0pLEFT
  11126.  beq.s NoChan0sound
  11127.  
  11128.  move.l Samp0endLEFT,d0
  11129.  move.l pos0LEFT,d1
  11130.  sub.l d1,d0
  11131.  lsr.l #1,d0
  11132.  move.w d0,$a4(a6)
  11133.  move.l d1,$a0(a6)
  11134.  ext.l d0
  11135.  divs #100,d0
  11136.  move.w d0,playnull0
  11137.  move.w #$8201,dmacon(a6)
  11138.  moveq #0,d0
  11139.  move.b vol0left,d0
  11140.  move.w d0,$a8(a6)
  11141.  
  11142. NoChan0sound:
  11143.  
  11144. *****************************************
  11145. *****************************************
  11146.  
  11147.  btst #0,intreqr(a6)
  11148.  beq.s nofinish1
  11149.  move.l #null,$b0(a6)
  11150.  move.w #100,$b4(a6)
  11151.  move.w #$0100,intreq(a6)
  11152. nofinish1:
  11153.  
  11154.  tst.b NoiseMade0pRIGHT
  11155.  beq.s NoChan1sound
  11156.  
  11157.  move.l Samp0endRIGHT,d0
  11158.  move.l pos0RIGHT,d1
  11159.  sub.l d1,d0
  11160.  lsr.l #1,d0
  11161.  move.w d0,$b4(a6)
  11162.  move.l d1,$b0(a6)
  11163.  ext.l d0
  11164.  divs #100,d0
  11165.  move.w d0,playnull1
  11166.  move.w #$8202,dmacon(a6)
  11167.  moveq #0,d0
  11168.  move.b vol0right,d0
  11169.  move.w d0,$b8(a6)
  11170.  
  11171. NoChan1sound:
  11172.  
  11173. *****************************************
  11174. *****************************************
  11175.  
  11176.  btst #1,intreqr(a6)
  11177.  beq.s nofinish2
  11178.  move.l #null,$c0(a6)
  11179.  move.w #100,$c4(a6)
  11180.  move.w #$0200,intreq(a6)
  11181. nofinish2:
  11182.  
  11183.  tst.b NoiseMade1pRIGHT
  11184.  beq.s NoChan2sound
  11185.  
  11186.  move.l Samp1endRIGHT,d0
  11187.  move.l pos1RIGHT,d1
  11188.  sub.l d1,d0
  11189.  lsr.l #1,d0
  11190.  move.w d0,$c4(a6)
  11191.  ext.l d0
  11192.  divs #100,d0
  11193.  move.w d0,playnull2
  11194.  
  11195.  move.l d1,$c0(a6)
  11196.  move.w #$8204,dmacon(a6)
  11197.  moveq #0,d0
  11198.  move.b vol1right,d0
  11199.  move.w d0,$c8(a6)
  11200.  
  11201. NoChan2sound:
  11202.  
  11203. *****************************************
  11204. *****************************************
  11205.  
  11206.  btst #2,intreqr(a6)
  11207.  beq.s nofinish3
  11208.  move.l #null,$d0(a6)
  11209.  move.w #100,$d4(a6)
  11210.  move.w #$0400,intreq(a6)
  11211. nofinish3:
  11212.  
  11213.  tst.b NoiseMade1pLEFT
  11214.  beq.s NoChan3sound
  11215.  
  11216.  move.l Samp1endLEFT,d0
  11217.  move.l pos1LEFT,d1
  11218.  sub.l d1,d0
  11219.  lsr.l #1,d0
  11220.  move.w d0,$d4(a6)
  11221.  ext.l d0
  11222.  divs #100,d0
  11223.  move.w d0,playnull3
  11224.  move.l d1,$d0(a6)
  11225.  move.w #$8208,dmacon(a6)
  11226.  moveq #0,d0
  11227.  move.b vol1left,d0
  11228.  move.w d0,$d8(a6)
  11229.  
  11230. NoChan3sound:
  11231.  
  11232. nomorechannels:
  11233.  
  11234.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  11235.  move.l #0,NoiseMade0LEFT
  11236.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  11237.  move.l #0,NoiseMade0RIGHT
  11238.  
  11239. ; tst.b playnull0
  11240. ; beq.s .nnul
  11241. ; sub.b #1,playnull0
  11242. ; bra.s chan0still
  11243. ;.nnul:
  11244. ; 
  11245. ;chan0still:
  11246.  
  11247.  tst.b NoiseMade0pLEFT
  11248.  bne.s chan0still
  11249.  tst.w playnull0
  11250.  beq.s nnul0
  11251.  sub.w #1,playnull0
  11252.  bra.s chan0still
  11253. nnul0:
  11254.  move.w #0,LEFTCHANDATA+2
  11255.  st LEFTCHANDATA+1
  11256. chan0still:
  11257.  
  11258.  tst.b NoiseMade0pRIGHT
  11259.  bne.s chan1still    ;it'll never work
  11260.  tst.w playnull1
  11261.  beq.s nnul1
  11262.  sub.w #1,playnull1
  11263.  bra.s chan1still
  11264. nnul1:
  11265.  move.w #0,RIGHTCHANDATA+2
  11266.  st RIGHTCHANDATA+1
  11267. chan1still:
  11268.  
  11269.  tst.b NoiseMade1pRIGHT
  11270.  bne.s chan2still
  11271.  tst.w playnull2
  11272.  beq.s nnul2
  11273.  sub.w #1,playnull2
  11274.  bra.s chan2still
  11275. nnul2:
  11276.  move.w #0,RIGHTCHANDATA+2+4
  11277.  st RIGHTCHANDATA+1+4
  11278. chan2still:
  11279.  
  11280.  tst.b NoiseMade1pLEFT
  11281.  bne.s chan3still
  11282.  tst.w playnull3
  11283.  beq.s nnul3
  11284.  sub.w #1,playnull3
  11285.  bra.s chan3still
  11286. nnul3:
  11287.  move.w #0,LEFTCHANDATA+2+4
  11288.  st LEFTCHANDATA+1+4
  11289.  
  11290. chan3still:
  11291.  
  11292.  
  11293.  movem.l (a7)+,d0-d7/a0-a6
  11294.  
  11295.  moveq #0,d0
  11296.  rts
  11297.  
  11298. backbeat: dc.w 0
  11299.  
  11300. playnull0: dc.w 0
  11301. playnull1: dc.w 0
  11302. playnull2: dc.w 0
  11303. playnull3: dc.w 0
  11304.  
  11305. Samp0endRIGHT: dc.l emptyend
  11306. Samp1endRIGHT: dc.l emptyend
  11307. Samp2endRIGHT: dc.l emptyend
  11308. Samp3endRIGHT: dc.l emptyend
  11309. Samp0endLEFT: dc.l emptyend
  11310. Samp1endLEFT: dc.l emptyend
  11311. Samp2endLEFT: dc.l emptyend
  11312. Samp3endLEFT: dc.l emptyend
  11313.  
  11314. Aupt0: dc.l null
  11315. Auback0: dc.l null+500
  11316. Aupt2: dc.l null3
  11317. Auback2: dc.l null3+500
  11318. Aupt3: dc.l null4
  11319. Auback3: dc.l null4+500
  11320. Aupt1: dc.l null2
  11321. Auback1: dc.l null2+500
  11322.  
  11323. NoiseMade0LEFT: dc.b 0
  11324. NoiseMade1LEFT: dc.b 0
  11325. NoiseMade2LEFT: dc.b 0
  11326. NoiseMade3LEFT: dc.b 0
  11327. NoiseMade0pLEFT: dc.b 0
  11328. NoiseMade1pLEFT: dc.b 0
  11329. NoiseMade2pLEFT: dc.b 0
  11330. NoiseMade3pLEFT: dc.b 0
  11331. NoiseMade0RIGHT: dc.b 0
  11332. NoiseMade1RIGHT: dc.b 0
  11333. NoiseMade2RIGHT: dc.b 0
  11334. NoiseMade3RIGHT: dc.b 0
  11335. NoiseMade0pRIGHT: dc.b 0
  11336. NoiseMade1pRIGHT: dc.b 0
  11337. NoiseMade2pRIGHT: dc.b 0
  11338. NoiseMade3pRIGHT: dc.b 0
  11339.  
  11340. empty: ds.l 100
  11341. emptyend:
  11342.  
  11343. **************************************
  11344. * I want a routine to calculate all the
  11345. * info needed for the sound player to
  11346. * work, given say position of noise, volume
  11347. * and sample number.
  11348.  
  11349. Samplenum: dc.w 0
  11350. Noisex: dc.w 0
  11351. Noisez: dc.w 0
  11352. Noisevol: dc.w 0
  11353. chanpick: dc.w 0
  11354. IDNUM: dc.w 0
  11355. needleft: dc.b 0
  11356. needright: dc.b 0
  11357. STEREO: dc.b $0
  11358. even
  11359. prot6: dc.w 0
  11360.  
  11361.  even
  11362.  
  11363. CHANNELDATA:
  11364. LEFTCHANDATA:
  11365.  dc.l $00000000
  11366.  dc.l $00000000
  11367.  dc.l $FF000000
  11368.  dc.l $FF000000
  11369. RIGHTCHANDATA:
  11370.  dc.l $00000000
  11371.  dc.l $00000000
  11372.  dc.l $FF000000
  11373.  dc.l $FF000000
  11374.  
  11375. RIGHTPLAYEDTAB: ds.l 20
  11376. LEFTPLAYEDTAB: ds.l 20
  11377.  
  11378. MakeSomeNoise:
  11379.  
  11380. ; Plan for new sound handler:
  11381. ; It is sent a sample number,
  11382. ; a position relative to the
  11383. ; player, an id number and a volume.
  11384. ; Also notifplaying.
  11385.  
  11386. ; indirect inputs are the available
  11387. ; channel flags and whether or not
  11388. ; stereo sound is selected.
  11389.  
  11390. ; the algorithm must decide
  11391. ; whether the new sound is more
  11392. ; important than the ones already
  11393. ; playing. Thus an 'importance'
  11394. ; must be calculated, probably
  11395. ; using volume.
  11396.  
  11397. ; The output needs to be:
  11398.  
  11399. ; Write the pointers and volumes of
  11400. ; the sound channels
  11401.  
  11402.  
  11403.  tst.b notifplaying
  11404.  beq.s dontworry
  11405.  
  11406. ; find if we are already playing
  11407.  
  11408.  move.b IDNUM,d0
  11409.  move.w #7,d1
  11410.  lea CHANNELDATA,a3
  11411. findsameasme
  11412.  tst.b (a3)
  11413.  bne.s notavail
  11414.  cmp.b 1(a3),d0
  11415.  beq SameAsMe
  11416. notavail:
  11417.  add.w #4,a3
  11418.  dbra d1,findsameasme
  11419.  bra dontworry
  11420. SameAsMe
  11421.  rts
  11422.  
  11423. noiseloud: dc.w 0
  11424.  
  11425. dontworry:
  11426.  
  11427. ; Ok its fine for us to play a sound.
  11428. ; So calculate left/right volume.
  11429.  
  11430.  move.w Noisex,d1
  11431.  muls d1,d1
  11432.  move.w Noisez,d2
  11433.  muls d2,d2
  11434.  move.w #64,d3
  11435.  move.w #32767,noiseloud
  11436.  moveq #1,d0
  11437.  add.l d1,d2
  11438.  beq pastcalc
  11439.  
  11440.  move.w #31,d0
  11441. .findhigh
  11442.  btst d0,d2
  11443.  bne .foundhigh
  11444.  dbra d0,.findhigh
  11445. .foundhigh
  11446.  asr.w #1,d0
  11447.  clr.l d3
  11448.  bset d0,d3
  11449.  move.l d3,d0
  11450.  
  11451.  move.w d0,d3
  11452.  muls d3,d3    ; x*x
  11453.  sub.l d2,d3    ; x*x-a
  11454.  asr.l #1,d3    ; (x*x-a)/2
  11455.  divs d0,d3    ; (x*x-a)/2x
  11456.  sub.w d3,d0    ; second approx
  11457.  bgt .stillnot0
  11458.  move.w #1,d0
  11459. .stillnot0
  11460.  
  11461.  move.w d0,d3
  11462.  muls d3,d3
  11463.  sub.l d2,d3
  11464.  asr.l #1,d3
  11465.  divs d0,d3
  11466.  sub.w d3,d0    ; second approx
  11467.  bgt .stillnot02
  11468.  move.w #1,d0
  11469. .stillnot02
  11470.  
  11471.  move.w Noisevol,d3
  11472.  ext.l d3
  11473.  asl.l #6,d3
  11474.  cmp.l #32767,d3
  11475.  ble.s .nnnn
  11476.  move.l #32767,d3
  11477. .nnnn
  11478.  
  11479.  asr.w #2,d0
  11480.  addq #1,d0
  11481.  divs d0,d3
  11482.  
  11483.  move.w d3,noiseloud
  11484.  
  11485.  cmp.w #64,d3
  11486.  ble.s notooloud
  11487.  move.w #64,d3
  11488. notooloud:
  11489.  
  11490. pastcalc:
  11491.  
  11492.     ; d3 contains volume of noise.
  11493.     
  11494.  move.w d3,d4
  11495.  tst.b STEREO
  11496.  beq NOSTEREO
  11497.  
  11498.  move.w d3,d2
  11499.  muls Noisex,d2
  11500.  asl.w #2,d0
  11501.  divs d0,d2
  11502.  
  11503.  bgt.s quietleft
  11504.  add.w d2,d4
  11505.  bge.s donequiet
  11506.  move.w #0,d4
  11507.  bra.s donequiet
  11508. quietleft:
  11509.  sub.w d2,d3
  11510.  bge.s donequiet
  11511.  move.w #0,d3
  11512. donequiet:
  11513.  
  11514. ; d3=leftvol?
  11515. ; d4=rightvol?
  11516.  
  11517.  clr.w needleft
  11518.  
  11519.  cmp.b d3,d4
  11520.  bgt.s RightLouder
  11521.  
  11522. ; Left is louder; is it MUCH louder?
  11523.  
  11524.  st needleft
  11525.  move.w d3,d2
  11526.  sub.w d4,d2
  11527.  cmp.w #32,d2
  11528.  slt needright
  11529.  bra aboutsame
  11530.  
  11531. RightLouder:
  11532.  st needright
  11533.  move.w d4,d2
  11534.  sub.w d3,d2
  11535.  cmp.w #32,d2
  11536.  slt needleft
  11537.  
  11538. aboutsame:
  11539.  
  11540.  
  11541. ; Find least important sound on left
  11542.  
  11543.  move.l #0,a2
  11544.  move.l #0,d5
  11545.  move.w #32767,d2
  11546.  move.b IDNUM,d0
  11547.  lea LEFTCHANDATA,a3
  11548.  move.w #3,d1
  11549. FindLeftChannel
  11550.  tst.b (a3)
  11551.  bne.s .notactive
  11552.  cmp.b 1(a3),d0
  11553.  beq.s FOUNDLEFT
  11554.  cmp.w 2(a3),d2
  11555.  blt.s .notactive
  11556.  move.w 2(a3),d2
  11557.  move.l a3,a2
  11558.  move.w d5,d6
  11559.  
  11560. .notactive:
  11561.  add.w #4,a3
  11562.  add.w #1,d5
  11563.  dbra d1,FindLeftChannel
  11564.  move.l a2,a3
  11565.  bra.s gopastleft
  11566. FOUNDLEFT:
  11567.  move.w d5,d6
  11568. gopastleft:
  11569.  tst.l a3
  11570.  bne.s FOUNDALEFT
  11571. NONOISE:
  11572.  rts
  11573. FOUNDALEFT:
  11574.  
  11575.  cmp.w noiseloud,d3
  11576.  bge.s NONOISE
  11577.  
  11578. ; d6 = channel number
  11579.  move.b d0,1(a3)
  11580.  move.w d3,2(a3)
  11581.  
  11582.  move.w Samplenum,d5
  11583.  move.l #SampleList,a3
  11584.  move.l (a3,d5.w*8),a1
  11585.  move.l 4(a3,d5.w*8),a2
  11586.  
  11587.  tst.b d6
  11588.  seq NoiseMade0LEFT
  11589.  beq.s .chan0
  11590.  cmp.b #2,d6
  11591.  slt NoiseMade1LEFT
  11592.  blt .chan1
  11593.  seq NoiseMade2LEFT
  11594.  beq .chan2
  11595.  st NoiseMade3LEFT
  11596.  
  11597.  move.b d5,LEFTPLAYEDTAB+9
  11598.  move.b d3,LEFTPLAYEDTAB+1+9
  11599.  move.b d4,LEFTPLAYEDTAB+2+9
  11600.  move.b d3,vol3left
  11601.  move.l a1,pos3LEFT
  11602.  move.l a2,Samp3endLEFT
  11603.  bra dorightchan
  11604.  
  11605. .chan0: 
  11606.  move.b d5,LEFTPLAYEDTAB
  11607.  move.b d3,LEFTPLAYEDTAB+1
  11608.  move.b d4,LEFTPLAYEDTAB+2
  11609.  move.l a1,pos0LEFT
  11610.  move.l a2,Samp0endLEFT
  11611.  move.b d3,vol0left
  11612.  bra dorightchan
  11613.  
  11614. .chan1:
  11615.  move.b d5,LEFTPLAYEDTAB+3
  11616.  move.b d3,LEFTPLAYEDTAB+1+3
  11617.  move.b d4,LEFTPLAYEDTAB+2+3
  11618.  move.b d3,vol1left
  11619.  move.l a1,pos1LEFT
  11620.  move.l a2,Samp1endLEFT
  11621.  bra dorightchan
  11622.  
  11623. .chan2: 
  11624.  move.b d5,LEFTPLAYEDTAB+6
  11625.  move.b d3,LEFTPLAYEDTAB+1+6
  11626.  move.b d4,LEFTPLAYEDTAB+2+6
  11627.  move.l a1,pos2LEFT
  11628.  move.l a2,Samp2endLEFT
  11629.  move.b d3,vol2left
  11630.  
  11631. dorightchan:
  11632.  
  11633. ; Find least important sound on right
  11634.  
  11635.  move.l #0,a2
  11636.  move.l #0,d5
  11637.  move.w #10000,d2
  11638.  move.b IDNUM,d0
  11639.  lea RIGHTCHANDATA,a3
  11640.  move.w #3,d1
  11641. FindRightChannel
  11642.  tst.b (a3)
  11643.  bne.s .notactive
  11644.  cmp.b 1(a3),d0
  11645.  beq.s FOUNDRIGHT
  11646.  cmp.w 2(a3),d2
  11647.  blt.s .notactive
  11648.  move.w 2(a3),d2
  11649.  move.l a3,a2
  11650.  move.w d5,d6
  11651.  
  11652. .notactive:
  11653.  add.w #4,a3
  11654.  add.w #1,d5
  11655.  dbra d1,FindRightChannel
  11656.  move.l a2,a3
  11657.  bra.s gopastright
  11658. FOUNDRIGHT:
  11659.  move.w d5,d6
  11660. gopastright:
  11661.  tst.l a3
  11662.  bne.s FOUNDARIGHT
  11663.  rts
  11664. FOUNDARIGHT:
  11665.  
  11666. ; d6 = channel number
  11667.  move.b d0,1(a3)
  11668.  move.w d3,2(a3)
  11669.  
  11670.  move.w Samplenum,d5
  11671.  move.l #SampleList,a3
  11672.  move.l (a3,d5.w*8),a1
  11673.  move.l 4(a3,d5.w*8),a2
  11674.  
  11675.  tst.b d6
  11676.  seq NoiseMade0RIGHT
  11677.  beq.s .chan0
  11678.  cmp.b #2,d6
  11679.  slt NoiseMade1RIGHT
  11680.  blt .chan1
  11681.  seq NoiseMade2RIGHT
  11682.  beq .chan2
  11683.  st NoiseMade3RIGHT
  11684.  
  11685.  move.b d5,RIGHTPLAYEDTAB+9
  11686.  move.b d3,RIGHTPLAYEDTAB+1+9
  11687.  move.b d4,RIGHTPLAYEDTAB+2+9
  11688.  move.b d4,vol3right
  11689.  move.l a1,pos3RIGHT
  11690.  move.l a2,Samp3endRIGHT
  11691.  rts
  11692.  
  11693. .chan0: 
  11694.  move.b d5,RIGHTPLAYEDTAB
  11695.  move.b d3,RIGHTPLAYEDTAB+1
  11696.  move.b d4,RIGHTPLAYEDTAB+2
  11697.  move.l a1,pos0RIGHT
  11698.  move.l a2,Samp0endRIGHT
  11699.  move.b d4,vol0right
  11700.  rts
  11701.  
  11702. .chan1:
  11703.  move.b d5,RIGHTPLAYEDTAB+3
  11704.  move.b d3,RIGHTPLAYEDTAB+1+3
  11705.  move.b d4,RIGHTPLAYEDTAB+2+3
  11706.  move.b d3,vol1right
  11707.  move.l a1,pos1RIGHT
  11708.  move.l a2,Samp1endRIGHT
  11709.  rts
  11710.  
  11711. .chan2: 
  11712.  move.b d5,RIGHTPLAYEDTAB+6
  11713.  move.b d3,RIGHTPLAYEDTAB+1+6
  11714.  move.b d4,RIGHTPLAYEDTAB+2+6
  11715.  move.l a1,pos2RIGHT
  11716.  move.l a2,Samp2endRIGHT
  11717.  move.b d3,vol2right
  11718.  rts
  11719.  
  11720. NOSTEREO:
  11721.  move.l #0,a2
  11722.  move.l #-1,d5
  11723.  move.w #32767,d2
  11724.  move.b IDNUM,d0
  11725.  lea CHANNELDATA,a3
  11726.  move.w #7,d1
  11727. FindChannel
  11728.  tst.b (a3)
  11729.  bne.s .notactive
  11730.  cmp.b 1(a3),d0
  11731.  beq.s FOUNDMYCHAN
  11732.  cmp.w 2(a3),d2
  11733.  blt.s .notactive
  11734.  move.w 2(a3),d2
  11735.  move.l a3,a2
  11736.  move.w d5,d6
  11737.  add.w #1,d6
  11738.  
  11739. .notactive:
  11740.  add.w #4,a3
  11741.  add.w #1,d5
  11742.  dbra d1,FindChannel
  11743.  
  11744.  move.l a2,a3
  11745.  bra.s gopastchan
  11746.  
  11747. FOUNDMYCHAN:
  11748.  move.w 2(a3),d2
  11749.  
  11750. FOUNDCHAN:
  11751.  move.w d5,d6
  11752.  add.w #1,d6
  11753. gopastchan:
  11754.  tst.w d6
  11755.  bge.s FOUNDACHAN
  11756. tooquiet:
  11757.  rts
  11758. FOUNDACHAN:
  11759.  
  11760. ; d6 = channel number
  11761.  
  11762.  cmp.w noiseloud,d2
  11763.  bgt.s tooquiet
  11764.  
  11765.  move.b d0,1(a3)
  11766.  move.w noiseloud,2(a3)
  11767.  
  11768.  move.w Samplenum,d5
  11769.  move.l #SampleList,a3
  11770.  move.l (a3,d5.w*8),a1
  11771.  move.l 4(a3,d5.w*8),a2
  11772.  
  11773.  tst.b d6
  11774.  beq .chan0
  11775.  cmp.b #2,d6
  11776.  blt .chan1
  11777.  beq .chan2
  11778.  cmp.b #4,d6
  11779.  blt .chan3
  11780.  beq .chan4
  11781.  cmp.b #6,d6
  11782.  blt .chan5
  11783.  beq .chan6
  11784.  st NoiseMade3RIGHT
  11785.  
  11786.  move.b d5,RIGHTPLAYEDTAB+9
  11787.  move.b d3,RIGHTPLAYEDTAB+1+9
  11788.  move.b d4,RIGHTPLAYEDTAB+2+9
  11789.  move.b d4,vol3right
  11790.  move.l a1,pos3RIGHT
  11791.  move.l a2,Samp3endRIGHT
  11792.  rts
  11793.  
  11794. .chan3:
  11795.  st NoiseMade3LEFT
  11796.  move.b d5,LEFTPLAYEDTAB+9
  11797.  move.b d3,LEFTPLAYEDTAB+1+9
  11798.  move.b d4,LEFTPLAYEDTAB+2+9
  11799.  move.b d3,vol3left
  11800.  move.l a1,pos3LEFT
  11801.  move.l a2,Samp3endLEFT
  11802.  bra dorightchan
  11803.  
  11804. .chan0: 
  11805.  st NoiseMade0LEFT
  11806.  move.b d5,LEFTPLAYEDTAB
  11807.  move.b d3,LEFTPLAYEDTAB+1
  11808.  move.b d4,LEFTPLAYEDTAB+2
  11809.  move.l a1,pos0LEFT
  11810.  move.l a2,Samp0endLEFT
  11811.  move.b d3,vol0left
  11812.  rts
  11813.  
  11814. .chan1:
  11815.  st NoiseMade1LEFT
  11816.  move.b d5,LEFTPLAYEDTAB+3
  11817.  move.b d3,LEFTPLAYEDTAB+1+3
  11818.  move.b d4,LEFTPLAYEDTAB+2+3
  11819.  move.b d3,vol1left
  11820.  move.l a1,pos1LEFT
  11821.  move.l a2,Samp1endLEFT
  11822.  rts
  11823.  
  11824. .chan2: 
  11825.  st NoiseMade2LEFT
  11826.  move.b d5,LEFTPLAYEDTAB+6
  11827.  move.b d3,LEFTPLAYEDTAB+1+6
  11828.  move.b d4,LEFTPLAYEDTAB+2+6
  11829.  move.l a1,pos2LEFT
  11830.  move.l a2,Samp2endLEFT
  11831.  move.b d3,vol2left
  11832.  rts
  11833.  
  11834. .chan4: 
  11835.  st NoiseMade0RIGHT
  11836.  move.b d5,RIGHTPLAYEDTAB
  11837.  move.b d3,RIGHTPLAYEDTAB+1
  11838.  move.b d4,RIGHTPLAYEDTAB+2
  11839.  move.l a1,pos0RIGHT
  11840.  move.l a2,Samp0endRIGHT
  11841.  move.b d4,vol0right
  11842.  rts
  11843.  
  11844. .chan5:
  11845.  st NoiseMade1RIGHT
  11846.  move.b d5,RIGHTPLAYEDTAB+3
  11847.  move.b d3,RIGHTPLAYEDTAB+1+3
  11848.  move.b d4,RIGHTPLAYEDTAB+2+3
  11849.  move.b d3,vol1right
  11850.  move.l a1,pos1RIGHT
  11851.  move.l a2,Samp1endRIGHT
  11852.  rts
  11853.  
  11854. .chan6: 
  11855.  st NoiseMade2RIGHT
  11856.  move.b d5,RIGHTPLAYEDTAB+6
  11857.  move.b d3,RIGHTPLAYEDTAB+1+6
  11858.  move.b d4,RIGHTPLAYEDTAB+2+6
  11859.  move.l a1,pos2RIGHT
  11860.  move.l a2,Samp2endRIGHT
  11861.  move.b d3,vol2right
  11862.  rts
  11863.  
  11864. SampleList:
  11865.  dc.l Scream,EndScream
  11866.  dc.l Shoot,EndShoot
  11867.  dc.l Munch,EndMunch
  11868.  dc.l PooGun,EndPooGun
  11869.  dc.l Collect,EndCollect
  11870. ;5
  11871.  dc.l DoorNoise,EndDoorNoise
  11872.  dc.l 0,0
  11873.  dc.l Stomp,EndStomp
  11874.  dc.l LowScream,EndLowScream
  11875.  dc.l BaddieGun,EndBaddieGun
  11876. ;10
  11877.  dc.l SwitchNoise,EndSwitch
  11878.  dc.l Reload,EndReload
  11879.  dc.l NoAmmo,EndNoAmmo
  11880.  dc.l Splotch,EndSplotch
  11881.  dc.l SplatPop,EndSplatPop
  11882. ;15
  11883.  dc.l Boom,EndBoom
  11884.  dc.l Hiss,EndHiss
  11885.  dc.l Howl1,EndHowl1
  11886.  dc.l Howl2,EndHowl2
  11887.  dc.l Pant,EndPant
  11888. ;20
  11889.  dc.l Whoosh,EndWhoosh
  11890.  dc.l ROAR,EndROAR
  11891.  dc.l whoosh,Endwhoosh
  11892.  dc.l 0,0
  11893.  dc.l 0,0
  11894.  dc.l 0,0
  11895.  dc.l 0,0
  11896.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11897.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11898.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11899.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11900.  
  11901.  dc.l 0
  11902.  
  11903. storeval: dc.w 0
  11904.  
  11905.  include "ab3:source_4000/wallchunk.s"
  11906.  include "ab3:source_4000/newloadfromdisk.s"
  11907.  include "ab3:source_4000/screensetup.s"
  11908.  include "ab3:source_4000/CONTROLLOOP.s"
  11909.  
  11910.  
  11911.  
  11912.  
  11913. saveinters:  
  11914.  dc.w 0
  11915.  
  11916. z: dc.w 10
  11917.  
  11918. notifplaying:
  11919.  dc.w 0
  11920.  
  11921. audpos1: dc.w 0
  11922. audpos1b: dc.w 0
  11923. audpos2: dc.w 0
  11924. audpos2b: dc.w 0
  11925. audpos3: dc.w 0
  11926. audpos3b: dc.w 0
  11927. audpos4: dc.w 0
  11928. audpos4b: dc.w 0
  11929.  
  11930. vol0left: dc.w 0
  11931. vol0right: dc.w 0
  11932. vol1left: dc.w 0
  11933. vol1right: dc.w 0
  11934. vol2left: dc.w 0
  11935. vol2right: dc.w 0
  11936. vol3left: dc.w 0
  11937. vol3right: dc.w 0
  11938.  
  11939. pos: dc.l 0
  11940.  
  11941. pos0LEFT: dc.l empty
  11942. pos1LEFT: dc.l empty
  11943. pos2LEFT: dc.l empty
  11944. pos3LEFT: dc.l empty
  11945. pos0RIGHT: dc.l empty
  11946. pos1RIGHT: dc.l empty
  11947. pos2RIGHT: dc.l empty
  11948. pos3RIGHT: dc.l empty
  11949.  
  11950. numtodo dc.w 0
  11951.  
  11952. npt: dc.w 0
  11953.  
  11954. pretab:
  11955. val SET 0
  11956.  REPT 128
  11957.  dc.b val
  11958. val SET val+1
  11959.  ENDR
  11960. val SET -128
  11961.  REPT 128
  11962.  dc.b val
  11963. val SET val+1
  11964.  ENDR 
  11965.  
  11966. tab:
  11967.  ifeq CHEESEY
  11968.  ds.b 256*65
  11969.  endc
  11970.  
  11971. test: dc.l 0
  11972.  ds.l 30
  11973.  
  11974.  
  11975.  even
  11976. ConstCols:
  11977. ; incbin "ConstCols"
  11978.  even
  11979. Smoothscalecols:
  11980. ; incbin "smoothbumppalscaled"
  11981.  even
  11982. SmoothTile:
  11983. ; incbin "smoothbumptile"
  11984.  even
  11985. Bumpscalecols:
  11986. ; incbin "Bumppalscaled"
  11987.  even
  11988. Bumptile:
  11989. ; incbin "bumptile"
  11990.  even
  11991. scalecols: ;incbin "bytepixpalscaled"
  11992.  even
  11993. ;floorscalecols:
  11994. ; incbin "floor256pal"
  11995. ; ds.w 256*4
  11996.  
  11997.  even
  11998. PaletteAddr: dc.l 0
  11999. ChunkAddr: dc.l 0
  12000. ;walltiles:
  12001. ; dc.l GreenMechanicWALL
  12002. ; dc.l BlueGreyMetalWALL
  12003. ; dc.l TechnoDetailWALL
  12004. ; dc.l BlueStoneWALL
  12005. ; dc.l RedAlertWALL
  12006. ; dc.l RockWALL
  12007. ;
  12008. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  12009. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  12010. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  12011. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  12012. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  12013. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  12014.  
  12015. floortile:
  12016.  dc.l 0
  12017. ; incbin "floortile" 
  12018.  even
  12019. wallrouts:
  12020. ; incbin "2x2WallDraw" 
  12021.  CNOP 0,64
  12022.  
  12023.  ifeq CHEESEY 
  12024. BackPicture:
  12025.  incbin "rawback"
  12026. EndBackPicture:
  12027.  endc
  12028.  
  12029. drawpt: dc.l 0
  12030. olddrawpt: dc.l 0
  12031. frompt: dc.l 0 
  12032.  
  12033. SineTable:
  12034.  incbin "bigsine"
  12035.  
  12036. angspd: dc.w 0
  12037. flooryoff: dc.w 0
  12038. xoff: dc.l 0
  12039. yoff: dc.l 0
  12040. yvel: dc.l 0
  12041. zoff: dc.l 0
  12042. tyoff: dc.l 0
  12043. xspdval: dc.l 0
  12044. zspdval: dc.l 0
  12045. Zone: dc.w 0
  12046.  
  12047. PLR1: dc.b $ff
  12048.  even
  12049. PLR1_energy: dc.w 191
  12050. PLR1_GunSelected: dc.w 0
  12051. PLR1_cosval: dc.w 0
  12052. PLR1_sinval: dc.w 0
  12053. PLR1_angpos: dc.w 0
  12054. PLR1_angspd: dc.w 0
  12055. PLR1_xoff: dc.l 0
  12056. PLR1_yoff: dc.l 0
  12057. PLR1_yvel: dc.l 0
  12058. PLR1_zoff: dc.l 0
  12059. PLR1_tyoff: dc.l 0
  12060. PLR1_xspdval: dc.l 0
  12061. PLR1_zspdval: dc.l 0
  12062. PLR1_Zone: dc.w 0
  12063. PLR1_Roompt: dc.l 0
  12064. PLR1_FloorSpd: dc.l 0
  12065. PLR2_FloorSpd: dc.l 0
  12066. PLR1_OldRoompt: dc.l 0
  12067. PLR1_PointsToRotatePtr: dc.l 0
  12068. PLR1_ListOfGraphRooms: dc.l 0
  12069. PLR1_oldxoff: dc.l 0
  12070. PLR1_oldzoff: dc.l 0
  12071. PLR1_StoodInTop: dc.b 0
  12072.  even
  12073. PLR1_height: dc.l 0
  12074. PLR1_RoomBright: dc.w 0
  12075.  
  12076. DOUBLEWIDTH: dc.b $0,0
  12077. DOUBLEHEIGHT: dc.b 0,0
  12078. PLR1_TELEPORTED: dc.w 0
  12079. PLR2_TELEPORTED: dc.w 0
  12080.  
  12081.  ds.w 4
  12082.  
  12083. OLDX1: dc.l 0
  12084. OLDX2: dc.l 0
  12085. OLDZ1: dc.l 0
  12086. OLDZ2: dc.l 0
  12087.  
  12088. XDIFF1: dc.l 0
  12089. ZDIFF1: dc.l 0
  12090. XDIFF2: dc.l 0
  12091. ZDIFF2: dc.l 0
  12092.  
  12093. PLR1s_cosval: dc.w 0
  12094. PLR1s_sinval: dc.w 0
  12095. PLR1s_angpos: dc.w 0
  12096. PLR1s_angspd: dc.w 0
  12097. PLR1s_xoff: dc.l 0
  12098. PLR1s_yoff: dc.l 0
  12099. PLR1s_yvel: dc.l 0
  12100. PLR1s_zoff: dc.l 0
  12101. PLR1s_tyoff: dc.l 0
  12102. PLR1s_xspdval: dc.l 0
  12103. PLR1s_zspdval: dc.l 0
  12104. PLR1s_Zone: dc.w 0
  12105. PLR1s_Roompt: dc.l 0
  12106. PLR1s_OldRoompt: dc.l 0
  12107. PLR1s_PointsToRotatePtr: dc.l 0
  12108. PLR1s_ListOfGraphRooms: dc.l 0
  12109. PLR1s_oldxoff: dc.l 0
  12110. PLR1s_oldzoff: dc.l 0
  12111. PLR1s_height: dc.l 0
  12112. PLR1s_targheight: dc.l 0
  12113.  
  12114. p1_xoff: dc.l 0
  12115. p1_zoff: dc.l 0
  12116. p1_yoff: dc.l 0
  12117. p1_height: dc.l 0
  12118. p1_angpos: dc.w 0
  12119. p1_bobble: dc.w 0
  12120. p1_clicked: dc.b 0
  12121. p1_spctap: dc.b 0
  12122. p1_ducked: dc.b 0
  12123. p1_gunselected: dc.b 0
  12124. p1_fire: dc.b 0
  12125.  even
  12126. p1_holddown: dc.w 0
  12127.  
  12128.  ds.w 4
  12129.  
  12130. PLR2: dc.b $ff
  12131.  even
  12132. PLR2_GunSelected: dc.w 0
  12133. PLR2_energy: dc.w 191
  12134. PLR2_cosval: dc.w 0
  12135. PLR2_sinval: dc.w 0
  12136. PLR2_angpos: dc.w 0
  12137. PLR2_angspd: dc.w 0
  12138. PLR2_xoff: dc.l 0
  12139. PLR2_yoff: dc.l 0
  12140. PLR2_yvel: dc.l 0
  12141. PLR2_zoff: dc.l 0
  12142. PLR2_tyoff: dc.l 0
  12143. PLR2_xspdval: dc.l 0
  12144. PLR2_zspdval: dc.l 0
  12145. PLR2_Zone: dc.w 0
  12146. PLR2_Roompt: dc.l 0
  12147. PLR2_OldRoompt: dc.l 0
  12148. PLR2_PointsToRotatePtr: dc.l 0
  12149. PLR2_ListOfGraphRooms: dc.l 0
  12150. PLR2_oldxoff: dc.l 0
  12151. PLR2_oldzoff: dc.l 0
  12152. PLR2_StoodInTop: dc.b 0
  12153.  even
  12154. PLR2_height: dc.l 0
  12155.  
  12156.  ds.w 4
  12157.  
  12158. PLR2s_cosval: dc.w 0
  12159. PLR2s_sinval: dc.w 0
  12160. PLR2s_angpos: dc.w 0
  12161. PLR2s_angspd: dc.w 0
  12162. PLR2s_xoff: dc.l 0
  12163. PLR2s_yoff: dc.l 0
  12164. PLR2s_yvel: dc.l 0
  12165. PLR2s_zoff: dc.l 0
  12166. PLR2s_tyoff: dc.l 0
  12167. PLR2s_xspdval: dc.l 0
  12168. PLR2s_zspdval: dc.l 0
  12169. PLR2s_Zone: dc.w 0
  12170. PLR2s_Roompt: dc.l 0
  12171. PLR2s_OldRoompt: dc.l 0
  12172. PLR2s_PointsToRotatePtr: dc.l 0
  12173. PLR2s_ListOfGraphRooms: dc.l 0
  12174. PLR2s_oldxoff: dc.l 0
  12175. PLR2s_oldzoff: dc.l 0
  12176. PLR2s_height: dc.l 0
  12177. PLR2s_targheight: dc.l 0
  12178.  
  12179.  ds.w 4
  12180.  
  12181. p2_xoff: dc.l 0
  12182. p2_zoff: dc.l 0
  12183. p2_yoff: dc.l 0
  12184. p2_height: dc.l 0
  12185. p2_angpos: dc.w 0
  12186. p2_bobble: dc.w 0
  12187. p2_clicked: dc.b 0
  12188. p2_spctap: dc.b 0
  12189. p2_ducked: dc.b 0
  12190. p2_gunselected: dc.b 0
  12191. p2_fire: dc.b 0
  12192.  even
  12193. p2_holddown: dc.w 0
  12194.  
  12195. liftanimtab:
  12196.  
  12197. endliftanimtab:
  12198.  
  12199. glassball:
  12200. ; incbin "glassball.inc"
  12201.  
  12202. endglass
  12203. glassballpt: dc.l glassball
  12204.  
  12205. rndtab: ; incbin "randfile"
  12206. endrnd: 
  12207.  
  12208. brightanimtab:
  12209. ; dcb.w 200,20
  12210. ; dc.w 5
  12211. ; dc.w 10,20
  12212. ; dc.w 5
  12213. ; dcb.w 30,20
  12214. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  12215. ; dcb.w 40,0
  12216. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  12217. ; dcb.w 300,0
  12218. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  12219. ; dc.w -1
  12220.  
  12221. Roompt: dc.l 0
  12222. OldRoompt: dc.l 0
  12223.  
  12224. *****************************************************************
  12225.  *
  12226.  include "AB3:source_4000/LevelData2"
  12227.  *
  12228. *****************************************************************
  12229.  
  12230.  
  12231. wallpt: dc.l 0
  12232. floorpt: dc.l 0
  12233.  
  12234. Rotated:
  12235.  ds.l 2*800 
  12236. ObjRotated:
  12237.  ds.l 2*500
  12238.  
  12239. OnScreen:
  12240.  ds.l 2*800 
  12241.  
  12242. startwait: dc.w 0
  12243. endwait: dc.w 0
  12244.  
  12245. ;Faces:
  12246. ; incbin "faces2raw"
  12247.  
  12248. LINKS: dc.l 0
  12249. FLYLINKS: dc.l 0
  12250. *************************************************************
  12251.  
  12252. consttab:
  12253.  incbin "constantfile"
  12254.  
  12255. *******************************************************************
  12256.  
  12257.  
  12258.  
  12259. *********************************
  12260.  
  12261. ; include "ab3:source_4000/loadmod.a"
  12262. ; include "ab3:source_4000/proplayer.a"
  12263.  
  12264.  
  12265. darkentab: 
  12266. ;val SET 0
  12267. ; REPT 256
  12268. ; dc.b val
  12269. ;val SET val+1
  12270. ; ENDR
  12271. ; incbin "darkenfile"
  12272.  
  12273. MIDDLEX: dc.w 0
  12274. RIGHTX: dc.w 192
  12275. FULLSCR: dc.w 0
  12276.  
  12277. SHADINGTABLE: incbin "SHADEFILE" 
  12278.  
  12279. ******************************************
  12280. * Link file !*****************************
  12281. ******************************************
  12282.  
  12283. LINKSPACE:
  12284. ; ds.l 22500
  12285. ; incbin "ab3:includes/test.lnk"
  12286.  
  12287. LINKname:
  12288.  dc.b "ab3:includes/test.lnk",0
  12289.  
  12290. LINKFILE:
  12291.  dc.l LINKSPACE
  12292.  
  12293. ******************************************
  12294.  
  12295.  
  12296. brightentab:
  12297.  incbin "brightenfile"
  12298. WorkSpace:
  12299.  ds.l 8192 
  12300. waterfile:
  12301.  incbin "waterfile"
  12302.  
  12303.  SECTION ffff,CODE_C
  12304.  
  12305. nullspr: dc.l 0
  12306.  
  12307.  cnop 0,8
  12308. ;borders:
  12309. ; incbin "newleftbord"
  12310. ; incbin "newrightbord"
  12311.  
  12312. health: 
  12313. ;incbin "healthstrip"
  12314. Ammunition: 
  12315. ;incbin "ammostrip"
  12316. healthpal: 
  12317. ;incbin "healthpal"
  12318. PanelKeys: 
  12319. ;incbin "greenkey"
  12320. ; incbin "redkey"
  12321. ; incbin "yellowkey"
  12322. ; incbin "bluekey"
  12323.  
  12324. null: ds.w 100
  12325. null2: ds.w 100
  12326. null3: ds.w 100
  12327. null4: ds.w 100
  12328.  
  12329.  
  12330. Blurbfield:
  12331.  
  12332.  dc.w bpl1ptl
  12333. bl1l: dc.w 0
  12334.  dc.w bpl1pth
  12335. bl1h: dc.w 0
  12336.  
  12337.  dc.w diwstart,$2c81
  12338.  dc.w diwstop,$1cc1
  12339.  dc.w ddfstart,$38
  12340.  dc.w ddfstop,$b8
  12341.  dc.w bplcon0,$9201
  12342.  dc.w bplcon1,0
  12343.  dc.w $106,$c40
  12344. blcols:
  12345.  dc.w col0,0
  12346.  dc.w col1,$fff
  12347.  
  12348.  dc.w $108,0
  12349.  dc.w $10a,0
  12350.  
  12351.  dc.w $ffff,$fffe
  12352.  dc.w $ffff,$fffe
  12353.  
  12354. nullline:
  12355.  ds.b 80    
  12356.  
  12357.  include "ab3:source_4000/titlecop.s"
  12358.  
  12359. bigfield:    
  12360.                 ; Start of our copper list.
  12361.  dc.w dmacon,$8020
  12362.  dc.w intreq,$8011
  12363.  dc.w $1fc,$f
  12364.  dc.w diwstart
  12365. winstart: dc.w $2c81
  12366.  dc.w diwstop
  12367. winstop: dc.w $2cc1
  12368.  dc.w ddfstart
  12369. fetchstart: dc.w $38
  12370.  dc.w ddfstop
  12371. fetchstop: dc.w $b8
  12372.  
  12373. bordercols:
  12374.  incbin "borderpal"
  12375.  
  12376.  dc.w spr0ptl
  12377. s0l:
  12378.  dc.w 0
  12379.  dc.w spr0pth
  12380. s0h:
  12381.  dc.w 0
  12382.  dc.w spr1ptl
  12383. s1l:
  12384.  dc.w 0
  12385.  dc.w spr1pth
  12386. s1h:
  12387.  dc.w 0
  12388.  dc.w spr2ptl
  12389. s2l:
  12390.  dc.w 0
  12391.  dc.w spr2pth
  12392. s2h:
  12393.  dc.w 0
  12394.  dc.w spr3ptl
  12395. s3l:
  12396.  dc.w 0
  12397.  dc.w spr3pth
  12398. s3h:
  12399.  dc.w 0
  12400.  dc.w spr4ptl
  12401. s4l:
  12402.  dc.w 0
  12403.  dc.w spr4pth
  12404. s4h:
  12405.  dc.w 0
  12406.  dc.w spr5ptl
  12407. s5l:
  12408.  dc.w 0
  12409.  dc.w spr5pth
  12410. s5h:
  12411.  dc.w 0
  12412.  dc.w spr6ptl
  12413. s6l:
  12414.  dc.w 0
  12415.  dc.w spr6pth
  12416. s6h:
  12417.  dc.w 0
  12418.  dc.w spr7ptl
  12419. s7l:
  12420.  dc.w 0
  12421.  dc.w spr7pth
  12422. s7h:
  12423.  dc.w 0
  12424.  
  12425. ; dc.w $106,$c42
  12426. ; incbin "borderpal"
  12427.  
  12428.  dc.w $106,$c42
  12429.  
  12430.  dc.w bplcon0,$0211
  12431.  dc.w bplcon1
  12432. smoff:
  12433.  dc.w $0
  12434.  
  12435.  dc.w $108
  12436. modulo: dc.w 0
  12437.  dc.w $10a,0
  12438.  
  12439.  dc.w $1001,$ff00
  12440.  dc.w intreq,$11
  12441.  
  12442. PALETTESPACE:
  12443.  dcb.l 528,$1fe0000
  12444.  
  12445.  dc.w $2001,$ff00
  12446.  
  12447.  dc.w bpl1pth
  12448. pl1h
  12449.  dc.w 0
  12450.  
  12451.  dc.w bpl1ptl
  12452. pl1l
  12453.  dc.w 0
  12454.  
  12455.  dc.w bpl2pth
  12456. pl2h
  12457.  dc.w 0
  12458.  
  12459.  dc.w bpl2ptl
  12460. pl2l
  12461.  dc.w 0
  12462.  
  12463.  dc.w bpl3pth
  12464. pl3h
  12465.  dc.w 0
  12466.  
  12467.  dc.w bpl3ptl
  12468. pl3l
  12469.  dc.w 0
  12470.  
  12471.  dc.w bpl4pth
  12472. pl4h
  12473.  dc.w 0
  12474.  
  12475.  dc.w bpl4ptl
  12476. pl4l
  12477.  dc.w 0
  12478.  
  12479.  dc.w bpl5pth
  12480. pl5h
  12481.  dc.w 0
  12482.  
  12483.  dc.w bpl5ptl
  12484. pl5l
  12485.  dc.w 0
  12486.  
  12487.  dc.w bpl6pth
  12488. pl6h
  12489.  dc.w 0
  12490.  
  12491.  dc.w bpl6ptl
  12492. pl6l
  12493.  dc.w 0
  12494.  
  12495.  dc.w bpl7pth
  12496. pl7h
  12497.  dc.w 0
  12498.  
  12499.  dc.w bpl7ptl
  12500. pl7l
  12501.  dc.w 0
  12502.  
  12503.  dc.w bpl8pth
  12504. pl8h
  12505.  dc.w 0
  12506.  
  12507.  dc.w bpl8ptl
  12508. pl8l
  12509.  dc.w 0
  12510.  
  12511.  
  12512. val SET $2c
  12513. SCRMODULOS:
  12514.  REPT 232
  12515.  dc.b val,1,$ff,$fe
  12516.  dc.w $108,0
  12517.  dc.w $10a,0
  12518.  dc.b val,$df,$ff,$fe
  12519. val SET (val+1)&$ff
  12520.  ENDR
  12521.  
  12522.  dc.w $108,0,$10a,0
  12523.  dc.w $2401,$ff00
  12524.  dc.w ddfstop,$c8
  12525.  dc.w bplcon0,$9201
  12526.  dc.w bpl1ptl
  12527. scroll:
  12528.  dc.w 0
  12529.  dc.w bpl1pth
  12530. scrolh:
  12531.  dc.w 0
  12532.  
  12533.  dc.w $106,$c40
  12534.  dc.w $180,0
  12535.  dc.w $182,$f0
  12536. ; dc.w $108,40
  12537. ; dc.w $10a,40
  12538.  
  12539. ; dc.w $80
  12540. ;JUMPBACKH:
  12541. ; dc.w 0
  12542. ; dc.w $82
  12543. ;JUMPBACKL:
  12544. ; dc.w 0
  12545.  
  12546. ; dc.w $8a,0
  12547.  
  12548.  dc.w $ffff,$fffe
  12549.  dc.w $ffff,$fffe
  12550.  
  12551. PALETTEBIT:
  12552.  incbin "256palette"
  12553.  dc.w $ffff,$fffe
  12554.  
  12555. yposcop:
  12556. ; dc.w $2a11,$fffe
  12557. ; dc.w $8a,0
  12558.  
  12559. ; ds.l 104*12
  12560.  
  12561. ;colbars:
  12562. ;val SET $2a
  12563. ; dcb.l 104*80,$1fe0000
  12564. ; dc.w $106,$c42
  12565. ; 
  12566. ; dc.w $80
  12567. ;pch1:
  12568. ; dc.w 0
  12569. ; dc.w $82
  12570. ;pcl1:
  12571. ; dc.w 0 
  12572. ; 
  12573. ; dc.w $88,0
  12574. ; 
  12575. ; dc.w $ffff,$fffe       ; End copper list.
  12576.  
  12577. ; ds.l 104*12
  12578.  
  12579.  
  12580. ;colbars2:
  12581. ;val SET $2a
  12582. ; dcb.l 104*80,$1fe0000
  12583. ; 
  12584. ; dc.w $106,$c42
  12585. ; 
  12586. ; dc.w $80
  12587. ;pch2:
  12588. ; dc.w 0
  12589. ; dc.w $82
  12590. ;pcl2:
  12591. ; dc.w 0
  12592. ; 
  12593. ; dc.w $88,0
  12594. ; 
  12595. ; dc.w $ffff,$fffe       ; End copper list.
  12596.  
  12597. ; ds.l 104*10
  12598.  
  12599. NullCopper:
  12600.  dc.w $ffff,$fffe
  12601.  
  12602. hitcol: dc.l 0
  12603.  
  12604. old: dc.l 0
  12605.  
  12606.  CNOP 0,64
  12607. SCROLLSCRN: ds.l 20*16
  12608.  
  12609. SCROLLOFFSET: dc.w 0
  12610. SCROLLTIMER: dc.w 100
  12611. SCROLLDIRECTION: dc.w 1
  12612. SCROLLXPOS: dc.w 0
  12613. SCROLLPOINTER: dc.l testscroll
  12614. ENDSCROLL: dc.l endtestscroll
  12615.  
  12616. testscroll:
  12617. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  12618. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12619. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  12620. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12621.  
  12622. BLANKSCROLL:
  12623.  dc.b "                                                                                "
  12624. endtestscroll: 
  12625.  
  12626. prot5: dc.w 0
  12627. PanelCop:
  12628.  
  12629.  dc.w $80
  12630. och:
  12631.  dc.w 0
  12632.  dc.w $82
  12633. ocl:
  12634.  dc.w 0
  12635.  
  12636. statskip:
  12637.  dc.w $1fe,0
  12638.  dc.w $1fe,0
  12639.  
  12640.  dc.w $10c,0
  12641.  dc.w bplcon0,$1201
  12642.  dc.w bpl1ptl
  12643. n1l:
  12644.  dc.w 0
  12645.  dc.w bpl1pth
  12646. n1h:
  12647.  dc.w 0
  12648.  dc.w $108,-24
  12649. ; incbin "Panelpal"
  12650.  
  12651.  dc.w bpl2pth
  12652. p2h
  12653.  dc.w 0
  12654.  
  12655.  dc.w bpl2ptl
  12656. p2l
  12657.  dc.w 0
  12658.  
  12659.  dc.w bpl3pth
  12660. p3h
  12661.  dc.w 0
  12662.  
  12663.  dc.w bpl3ptl
  12664. p3l
  12665.  dc.w 0
  12666.  
  12667.  dc.w bpl4pth
  12668. p4h
  12669.  dc.w 0
  12670.  dc.w bpl4ptl
  12671. p4l
  12672.  dc.w 0
  12673.  dc.w bpl5pth
  12674. p5h
  12675.  dc.w 0
  12676.  dc.w bpl5ptl
  12677. p5l
  12678.  dc.w 0
  12679.  dc.w bpl6pth
  12680. p6h
  12681.  dc.w 0
  12682.  dc.w bpl6ptl
  12683. p6l
  12684.  dc.w 0
  12685.  dc.w bpl7pth
  12686. p7h
  12687.  dc.w 0
  12688.  dc.w bpl7ptl
  12689. p7l
  12690.  dc.w 0
  12691.  dc.w bpl8pth
  12692. p8h
  12693.  dc.w 0
  12694.  dc.w bpl8ptl
  12695. p8l
  12696.  dc.w 0
  12697.  
  12698.  
  12699.  dc.w ddfstart,$38
  12700.  dc.w ddfstop,$b8
  12701.  dc.w diwstart,$2c81
  12702.  dc.w diwstop,$2cc1
  12703.  
  12704.  dc.w bplcon0
  12705. Panelcon: dc.w $0211
  12706.  dc.w bpl1pth
  12707. p1h
  12708.  dc.w 0
  12709.  
  12710.  dc.w bpl1ptl
  12711. p1l
  12712.  dc.w 0
  12713.  
  12714.  
  12715.  dc.w $108,40*7
  12716.  dc.w $10a,40*7
  12717.  
  12718.  dc.w $ffff,$fffe
  12719.  
  12720.  dc.w $180,$fff
  12721.  
  12722.  
  12723.  dc.w $f801,$ff00
  12724.  dc.w col1,$50
  12725.  dc.w $f901,$ff00
  12726.  dc.w col1,$90
  12727.  dc.w $fa01,$ff00
  12728.  dc.w col1,$f0
  12729.  dc.w $fb01,$ff00
  12730.  dc.w col1,$f0
  12731.  dc.w $fc01,$ff00
  12732.  dc.w col1,$90
  12733.  dc.w $fd01,$ff00
  12734.  dc.w col1,$50
  12735.  
  12736.  dc.w $fe01,$ff00
  12737.  dc.w col1,$fff
  12738.  
  12739.  dc.w $ffdf,$fffe
  12740.  dc.w $a01,$ff00
  12741.  dc.w bplcon0,$201
  12742.  
  12743. ; incbin "faces2cols"
  12744.  dc.w bpl1pth
  12745. f1h
  12746.  dc.w 0
  12747.  
  12748.  dc.w bpl1ptl
  12749. f1l
  12750.  dc.w 0
  12751.  
  12752.  dc.w bpl2pth
  12753. f2h
  12754.  dc.w 0
  12755.  
  12756.  dc.w bpl2ptl
  12757. f2l
  12758.  dc.w 0
  12759.  
  12760.  dc.w bpl3pth
  12761. f3h
  12762.  dc.w 0
  12763.  
  12764.  dc.w bpl3ptl
  12765. f3l
  12766.  dc.w 0
  12767.  
  12768.  dc.w bpl4pth
  12769. f4h
  12770.  dc.w 0
  12771.  dc.w bpl4ptl
  12772. f4l
  12773.  dc.w 0
  12774.  
  12775.  dc.w bpl5pth
  12776. f5h
  12777.  dc.w 0
  12778.  dc.w bpl5ptl
  12779. f5l
  12780.  dc.w 0
  12781.  
  12782.  dc.w $0c01,$ff00
  12783.  dc.w bplcon0,$5201
  12784.   
  12785.  dc.w $ffff,$fffe
  12786.  
  12787.  cnop 0,64
  12788. FacePlace:
  12789. ; ds.l 6*32*5
  12790.  
  12791. TEXTSCRN: dc.l 0
  12792.  
  12793. TEXTCOP:
  12794.  dc.w intreq,$8030
  12795.  
  12796.  dc.w spr0ptl
  12797. txs0l:
  12798.  dc.w 0
  12799.  dc.w spr0pth
  12800. txs0h:
  12801.  dc.w 0
  12802.  dc.w spr1ptl
  12803. txs1l:
  12804.  dc.w 0
  12805.  dc.w spr1pth
  12806. txs1h:
  12807.  dc.w 0
  12808.  dc.w spr2ptl
  12809. txs2l:
  12810.  dc.w 0
  12811.  dc.w spr2pth
  12812. txs2h:
  12813.  dc.w 0
  12814.  dc.w spr3ptl
  12815. txs3l:
  12816.  dc.w 0
  12817.  dc.w spr3pth
  12818. txs3h:
  12819.  dc.w 0
  12820.  dc.w spr4ptl
  12821. txs4l:
  12822.  dc.w 0
  12823.  dc.w spr4pth
  12824. txs4h:
  12825.  dc.w 0
  12826.  dc.w spr5ptl
  12827. txs5l:
  12828.  dc.w 0
  12829.  dc.w spr5pth
  12830. txs5h:
  12831.  dc.w 0
  12832.  dc.w spr6ptl
  12833. txs6l:
  12834.  dc.w 0
  12835.  dc.w spr6pth
  12836. txs6h:
  12837.  dc.w 0
  12838.  dc.w spr7ptl
  12839. txs7l:
  12840.  dc.w 0
  12841.  dc.w spr7pth
  12842. txs7h:
  12843.  dc.w 0
  12844.  
  12845.  
  12846.  dc.w $10c,$0088
  12847.  
  12848.  dc.w $1fc,$f
  12849.  dc.w diwstart,$2c81    ; Top left corner of screen.
  12850.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  12851.  dc.w ddfstart,$38      ; Data fetch start.
  12852.  dc.w ddfstop,$c8       ; Data fetch stop.
  12853.  
  12854.  dc.w bplcon0
  12855. TSCP:
  12856.  dc.w $9201
  12857.  
  12858.  dc.w $106,$c40
  12859.  
  12860.  dc.w $2a01,$ff00
  12861.  
  12862.  dc.w col0,0
  12863.  dc.w col1
  12864. TOPLET:
  12865. TXTCOLL:
  12866.  dc.w 0
  12867.   dc.w col2
  12868. BOTLET:
  12869.  dc.w 0
  12870.  dc.w col3
  12871. ALLTEXT:
  12872.  dc.w $fff
  12873.  dc.w $106,$e40
  12874.  dc.w col3
  12875. ALLTEXTLOW:
  12876.  dc.w $0
  12877.  
  12878.  
  12879.  dc.w bpl1pth
  12880. TSPTh:
  12881.  dc.w 0
  12882.  dc.w bpl1ptl
  12883. TSPTl:
  12884.  dc.w 0
  12885.  
  12886.  dc.w bpl2pth
  12887. TSPTh2:
  12888.  dc.w 0
  12889.  dc.w bpl2ptl
  12890. TSPTl2:
  12891.  dc.w 0
  12892.  
  12893.  
  12894.  dc.w $108,0
  12895.  dc.w $10a,0
  12896.  
  12897.  dc.w $ffff,$fffe
  12898.  
  12899. ********************************************
  12900. * Stuff you don't have to worry about yet. *
  12901. ********************************************
  12902.  
  12903. closeeverything:
  12904.  
  12905. ; jsr mt_end
  12906.  
  12907.  move.l #nullcop,d0
  12908. ; move.l old,d0
  12909.  
  12910.  
  12911. ;charlie  
  12912.  move.l d0,$dff080     ; Restore old copper list.
  12913.  move.w d0,ocl
  12914.  swap d0
  12915.  move.w d0,och
  12916.  
  12917. ; move.l doslib,a6
  12918. ; move.l #4,d1
  12919. ; jsr -198(a6)
  12920.  
  12921. ; move.l doslib,d0
  12922. ; move.l d0,a1
  12923. ; move.l 4.w,a6
  12924. ; jsr CloseLib(a6)
  12925.  
  12926.  move.l #$dff000,a6
  12927.  move.w #$8020,dmacon(a6)
  12928.  move.w #$f,dmacon(a6)
  12929.  
  12930. ; move.l 4.w,a6
  12931. ; lea VBLANKInt,a1
  12932. ; moveq #INTB_COPER,d0
  12933. ; jsr _LVORemIntServer(a6)
  12934.  
  12935. ; IFEQ CD32VER
  12936. ; move.l OLDKINT,$68.w
  12937. ; ENDC
  12938. ; move.w saveinters,d0
  12939. ; or.w #$c000,d0
  12940. ; move.w d0,intena(a6)
  12941.  clr.w $dff0a8
  12942.  clr.w $dff0b8
  12943.  clr.w $dff0c8
  12944.  clr.w $dff0d8
  12945.  
  12946.  
  12947. ; move.l oldview,a1
  12948. ; move.l a1,d0
  12949. ; move.l gfxbase,a6
  12950. ; jsr -$de(a6)
  12951.  
  12952. ; cmp.b #'s',mors
  12953. ; beq.s leaveold
  12954. ; move.w #$f8e,$dff1dc
  12955. ;leaveold:
  12956.  
  12957.  jsr RELEASELEVELMEM
  12958.  jsr RELEASESCRNMEM
  12959.  
  12960.  move.l #0,d0
  12961.  
  12962.  rts
  12963.  
  12964.  
  12965.  
  12966. intbase: dc.l 0
  12967. gfxbase: dc.l 0
  12968. oldview: dc.l 0
  12969.  
  12970. stuff:
  12971.  
  12972.     PRSDL
  12973.     Lea    gfxname(pc),a1    
  12974.     Moveq.l    #0,d0
  12975.     Move.l    $4.w,a6    
  12976.     Jsr    -$228(a6)
  12977.     add.w d1,RVAL1
  12978.     Move.l     d0,gfxbase
  12979.     Move.l    d0,a6                Use As Base Reg
  12980.     Move.l    34(a6),oldview
  12981.     move.l 38(a6),old
  12982.     rts
  12983.  
  12984. gfxname dc.b "graphics.library",0
  12985.  even
  12986. INTUNAME    dc.b    "intuition.library",0
  12987.  
  12988.  even
  12989.  
  12990.  
  12991.  cnop 0,64
  12992.  
  12993. Panel:
  12994.  dc.l 0
  12995.  
  12996. TimerScr: 
  12997. ;ds.b 40*64
  12998.  
  12999. scrntab:
  13000.  ds.b 16
  13001. val SET 32
  13002.  REPT 96
  13003.  dc.b val,val,val
  13004. val SET val+1
  13005.  ENDR
  13006.  ds.b 16
  13007.  
  13008. smallscrntab:
  13009. val SET 32
  13010.  REPT 96
  13011.  dc.b val,val
  13012. val SET val+1
  13013.  ENDR
  13014.  
  13015.  cnop 0,64
  13016. scrn:
  13017.  dc.l 0
  13018. ; incbin "ab3:includes/newborderRAW"
  13019. ; ds.b 80
  13020. scrn2:
  13021.  dc.l 0
  13022.  
  13023. ;flib:
  13024. ; incbin "ab3:includes/newborderRAW"
  13025. ; ds.b 80
  13026. ;flib2:
  13027. ; incbin "ab3:includes/newborderRAW"
  13028. ; ds.b 80
  13029.  
  13030. ; incbin "ab3:includes/newborderRAW"
  13031. ; ds.b 80
  13032.  
  13033. SCRNDRAWPT: dc.l 0
  13034. SCRNSHOWPT: dc.l 0
  13035.  
  13036. ; dcb.l 8,$33333333
  13037. ; dc.l 0
  13038. ; dc.l 0
  13039. ; 
  13040. ; dcb.l 8,$0f0f0f0f
  13041. ; dc.l 0
  13042. ; dc.l 0
  13043. ;
  13044. ; dcb.l 8,$00ff00ff
  13045. ; dc.l 0
  13046. ; dc.l 0
  13047. ; 
  13048. ; dcb.l 8,$0000ffff
  13049. ; dc.l 0
  13050. ; dc.l 0
  13051. ; 
  13052. ; dc.l 0,-1,0,-1,0,-1,0,-1
  13053. ; dc.l 0
  13054. ; dc.l 0
  13055. ; 
  13056. ; dc.l -1,-1,0,0,-1,-1,0,0
  13057. ; dc.l 0
  13058. ; dc.l 0
  13059. ; 
  13060. ; dc.l 0,0,-1,-1,-1,-1,-1,-1
  13061. ; dc.l 0
  13062. ; dc.l 0
  13063.  
  13064. NumTimes: dc.l 0
  13065. TimeCount: dc.l 0
  13066. oldtime: dc.l 0
  13067. counting: dc.b 0
  13068. oktodisplay: dc.b 0
  13069.  
  13070. INITTIMER:
  13071.  move.l #0,TimeCount
  13072.  move.l #0,NumTimes
  13073.  rts
  13074.  
  13075. STARTCOUNT:
  13076.  move.l d0,-(a7)
  13077.  move.l $dff004,d0
  13078.  and.l #$1ffff,d0
  13079.  move.l d0,oldtime
  13080.  st counting
  13081.  move.l (a7)+,d0
  13082.  rts
  13083.  
  13084. STOPCOUNT:
  13085.  move.l d0,-(a7)
  13086.  move.l $dff004,d0
  13087.  and.l #$1ffff,d0
  13088.  
  13089.  sub.l oldtime,d0
  13090.  cmp.l #-256,d0
  13091.  bge.s okcount
  13092.  add.l #313*256,d0
  13093. okcount:
  13094.  add.l d0,TimeCount
  13095.  addq.l #1,NumTimes
  13096.  clr.b counting
  13097.  move.l (a7)+,d0
  13098.  rts
  13099.  
  13100. STOPCOUNTNOADD:
  13101.  move.l d0,-(a7)
  13102.  move.l $dff004,d0
  13103.  and.l #$1ffff,d0
  13104.  
  13105.  sub.l oldtime,d0
  13106.  cmp.l #-256,d0
  13107.  bge.s okcount2
  13108.  add.l #313*256,d0
  13109. okcount2:
  13110.  add.l d0,TimeCount
  13111.  clr.b counting
  13112.  move.l (a7)+,d0
  13113.  rts
  13114.  
  13115. maxbot: dc.w 0
  13116. tstneg: dc.l 0
  13117.  
  13118. STOPTIMER:
  13119.  st oktodisplay
  13120.  rts
  13121.  
  13122. digits: incbin "numbers.inc"
  13123.  
  13124. COMPACTMAP: ds.l 257
  13125.  
  13126. BIGMAP: ds.l 256*10
  13127.  
  13128.  Section Sounds,CODE_C
  13129.  
  13130. nullcop:
  13131.  dc.w $106,$c40
  13132.  dc.w $180,0 
  13133.  dc.w $100,$0
  13134.  dc.w $ffff,$fffe
  13135.  
  13136. Scream:
  13137. ; incbin "ab3:sounds/Scream"
  13138. ; ds.w 100
  13139. EndScream:
  13140. LowScream:
  13141. ; incbin "ab3:sounds/LowScream"
  13142. ; ds.w 100
  13143. EndLowScream:
  13144. BaddieGun:
  13145. ; incbin "ab3:sounds/BaddieGun"
  13146. EndBaddieGun:
  13147. bass:
  13148. ; incbin "ab3:sounds/backbass+drum"
  13149. bassend:
  13150. Shoot:
  13151. ; incbin "ab3:sounds/fire!"
  13152. EndShoot:
  13153. Munch:
  13154. ; incbin "ab3:sounds/munch"
  13155. EndMunch:
  13156. PooGun:
  13157. ; incbin "ab3:sounds/shoot.dm"
  13158. EndPooGun:
  13159. Collect:
  13160. ; incbin "ab3:sounds/collect"
  13161. EndCollect:
  13162. DoorNoise:
  13163. ; incbin "ab3:sounds/newdoor"
  13164. EndDoorNoise:
  13165. Stomp:
  13166. ; incbin "ab3:sounds/footstep3"
  13167. EndStomp:
  13168. SwitchNoise:
  13169. ; incbin "ab3:sounds/switch"
  13170. EndSwitch:
  13171. Reload:
  13172. ; incbin "ab3:sounds/switch1.SFX"
  13173. EndReload:
  13174.  
  13175. CHEATFRAME:
  13176.  dc.b 26,20,33,27,17,12
  13177. ENDCHEAT:
  13178.  
  13179. NoAmmo:
  13180. ; incbin "ab3:sounds/noammo"
  13181. EndNoAmmo:
  13182. Splotch:
  13183. ; incbin "ab3:sounds/splotch"
  13184. EndSplotch:
  13185. SplatPop:
  13186. ; incbin "ab3:sounds/splatpop"
  13187. EndSplatPop:
  13188. Boom:
  13189. ; incbin "ab3:sounds/boom"
  13190. EndBoom:
  13191. Hiss:
  13192. ; incbin "ab3:sounds/newhiss"
  13193. EndHiss:
  13194. Howl1:
  13195. ; incbin "ab3:sounds/howl1"
  13196. EndHowl1:
  13197. Howl2:
  13198. ; incbin "ab3:sounds/howl2"
  13199. EndHowl2:
  13200. Pant:
  13201. ; incbin "ab3:sounds/pant"
  13202. EndPant:
  13203. Whoosh:
  13204. ; incbin "ab3:sounds/whoosh"
  13205. EndWhoosh:
  13206. ROAR:
  13207. ; incbin "ab3:sounds/bigscream"
  13208. EndROAR
  13209. whoosh:
  13210. ; incbin "ab3:sounds/flame"
  13211. Endwhoosh:
  13212.  SECTION music,code_c
  13213.  
  13214. UseAllChannels: dc.w 0
  13215.  
  13216. mt_init:
  13217.  
  13218.  
  13219.     move.l    mt_data,a0
  13220.     move.l    a0,a1
  13221.     add.l    #$3b8,a1
  13222.     moveq    #$7f,d0
  13223.     moveq    #0,d1
  13224. mt_loop:move.l    d1,d2
  13225.     subq.w    #1,d0
  13226. mt_lop2:move.b    (a1)+,d1
  13227.     cmp.b    d2,d1
  13228.     bgt.s    mt_loop
  13229.     dbf    d0,mt_lop2
  13230.     addq.b    #1,d2
  13231.  
  13232.     lea    mt_samplestarts(pc),a1
  13233.     asl.l    #8,d2
  13234.     asl.l    #2,d2
  13235.     add.l    #$43c,d2
  13236.     add.l    a0,d2
  13237.     move.l    d2,a2
  13238.     moveq    #$1e,d0
  13239. mt_lop3:
  13240.     clr.l    (a2)
  13241.     move.l    a2,(a1)+
  13242.     moveq    #0,d1
  13243.     move.w    42(a0),d1
  13244.     asl.l    #1,d1
  13245.     add.l    d1,a2
  13246.     add.l    #$1e,a0
  13247.     dbf    d0,mt_lop3
  13248.  
  13249.     or.b    #$2,$bfe001
  13250.     move.b    #$6,mt_speed
  13251.     clr.w    $dff0a8
  13252.     clr.w    $dff0b8
  13253.     clr.w    $dff0c8
  13254.     clr.w    $dff0d8
  13255.     clr.b    mt_songpos
  13256.     clr.b    mt_counter
  13257.     clr.w    mt_pattpos
  13258.     rts
  13259.  
  13260. mt_end:    clr.w    $dff0a8
  13261.     clr.w    $dff0b8
  13262.     clr.w    $dff0c8
  13263.     clr.w    $dff0d8
  13264.     move.w    #$f,$dff096
  13265.     rts
  13266.  
  13267. mt_music:
  13268.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  13269.     move.l    mt_data,a0
  13270.     addq.b    #$1,mt_counter
  13271.     move.b    mt_counter,D0
  13272.     cmp.b    mt_speed,D0
  13273.     blt.s    mt_nonew
  13274.     clr.b    mt_counter
  13275.     bra    mt_getnew
  13276.  
  13277. mt_nonew:
  13278.     lea    mt_voice1(pc),a6
  13279.     lea    $dff0a0,a5
  13280.     bsr    mt_checkcom
  13281.     lea    mt_voice2(pc),a6
  13282.     lea    $dff0b0,a5
  13283.     bsr    mt_checkcom
  13284. ;    tst.b UseAllChannels
  13285. ;    beq mt_endr
  13286.      lea    mt_voice3(pc),a6
  13287.     lea    $dff0c0,a5
  13288.     bsr    mt_checkcom
  13289.     lea    mt_voice4(pc),a6
  13290.     lea    $dff0d0,a5
  13291.     bsr    mt_checkcom
  13292.     bra    mt_endr
  13293.  
  13294. mt_arpeggio:
  13295.     moveq    #0,d0
  13296.     move.b    mt_counter,d0
  13297.     divs    #$3,d0
  13298.     swap    d0
  13299.     cmp.w    #$0,d0
  13300.     beq.s    mt_arp2
  13301.     cmp.w    #$2,d0
  13302.     beq.s    mt_arp1
  13303.  
  13304.     moveq    #0,d0
  13305.     move.b    $3(a6),d0
  13306.     lsr.b    #4,d0
  13307.     bra.s    mt_arp3
  13308. mt_arp1:moveq    #0,d0
  13309.     move.b    $3(a6),d0
  13310.     and.b    #$f,d0
  13311.     bra.s    mt_arp3
  13312. mt_arp2:move.w    $10(a6),d2
  13313.     bra.s    mt_arp4
  13314. mt_arp3:asl.w    #1,d0
  13315.     moveq    #0,d1
  13316.     move.w    $10(a6),d1
  13317.     lea    mt_periods(pc),a0
  13318.     moveq    #$24,d7
  13319. mt_arploop:
  13320.     move.w    (a0,d0.w),d2
  13321.     cmp.w    (a0),d1
  13322.     bge.s    mt_arp4
  13323.     addq.l    #2,a0
  13324.     dbf    d7,mt_arploop
  13325.     rts
  13326. mt_arp4:move.w    d2,$6(a5)
  13327.     rts
  13328.  
  13329. mt_getnew:
  13330.     move.l    mt_data,a0
  13331.     move.l    a0,a3
  13332.     move.l    a0,a2
  13333.     add.l    #$c,a3
  13334.     add.l    #$3b8,a2
  13335.     add.l    #$43c,a0
  13336.  
  13337.     moveq    #0,d0
  13338.     move.l    d0,d1
  13339.     move.b    mt_songpos,d0
  13340.     move.b    (a2,d0.w),d1
  13341.     asl.l    #8,d1
  13342.     asl.l    #2,d1
  13343.     add.w    mt_pattpos,d1
  13344.     clr.w    mt_dmacon
  13345.  
  13346.     lea    $dff0a0,a5
  13347.     lea    mt_voice1(pc),a6
  13348.     bsr    mt_playvoice
  13349.     lea    $dff0b0,a5
  13350.     lea    mt_voice2(pc),a6
  13351.     bsr    mt_playvoice
  13352. ;    tst.b UseAllChannels
  13353. ;    beq mt_setdma
  13354.     lea    $dff0c0,a5
  13355.     lea    mt_voice3(pc),a6
  13356.     bsr    mt_playvoice
  13357.     lea    $dff0d0,a5
  13358.     lea    mt_voice4(pc),a6
  13359.     bsr    mt_playvoice
  13360.     bra    mt_setdma
  13361.  
  13362. PROTCALC:
  13363. ;    include "ab3:source_4000/protcalc.s"
  13364.     incbin "ab3:includes/protcalc.bin"
  13365. ENDPROTCALC:
  13366.  
  13367. mt_playvoice:
  13368.     move.l    (a0,d1.l),(a6)
  13369.     addq.l    #4,d1
  13370.     moveq    #0,d2
  13371.     move.b    $2(a6),d2
  13372.     and.b    #$f0,d2
  13373.     lsr.b    #4,d2
  13374.     move.b    (a6),d0
  13375.     and.b    #$f0,d0
  13376.     or.b    d0,d2
  13377.     tst.b    d2
  13378.     beq.s    mt_setregs
  13379.     moveq    #0,d3
  13380.     lea    mt_samplestarts(pc),a1
  13381.     move.l    d2,d4
  13382.     subq.l    #$1,d2
  13383.     asl.l    #2,d2
  13384.     mulu    #$1e,d4
  13385.     move.l    (a1,d2.l),$4(a6)
  13386.     move.w    (a3,d4.l),$8(a6)
  13387.     move.w    $2(a3,d4.l),$12(a6)
  13388.     move.w    $4(a3,d4.l),d3
  13389.     tst.w    d3
  13390.     beq.s    mt_noloop
  13391.     move.l    $4(a6),d2
  13392.     asl.w    #1,d3
  13393.     add.l    d3,d2
  13394.     move.l    d2,$a(a6)
  13395.     move.w    $4(a3,d4.l),d0
  13396.     add.w    $6(a3,d4.l),d0
  13397.     move.w    d0,8(a6)
  13398.     move.w    $6(a3,d4.l),$e(a6)
  13399.     move.w    $12(a6),d0
  13400.     asr.w #2,d0
  13401.     move.w d0,$8(a5)
  13402.     bra.s    mt_setregs
  13403. mt_noloop:
  13404.     move.l    $4(a6),d2
  13405.     add.l    d3,d2
  13406.     move.l    d2,$a(a6)
  13407.     move.w    $6(a3,d4.l),$e(a6)
  13408.     move.w    $12(a6),d0
  13409.     asr.w #2,d0
  13410.     move.w d0,$8(a5)
  13411. mt_setregs:
  13412.     move.w    (a6),d0
  13413.     and.w    #$fff,d0
  13414.     beq    mt_checkcom2
  13415.     move.b    $2(a6),d0
  13416.     and.b    #$F,d0
  13417.     cmp.b    #$3,d0
  13418.     bne.s    mt_setperiod
  13419.     bsr    mt_setmyport
  13420.     bra    mt_checkcom2
  13421. mt_setperiod:
  13422.     move.w    (a6),$10(a6)
  13423.     and.w    #$fff,$10(a6)
  13424.     move.w    $14(a6),d0
  13425.     move.w    d0,$dff096
  13426.     clr.b    $1b(a6)
  13427.  
  13428.     move.l    $4(a6),(a5)
  13429.     move.w    $8(a6),$4(a5)
  13430.     move.w    $10(a6),d0
  13431.     and.w    #$fff,d0
  13432.     move.w    d0,$6(a5)
  13433.     move.w    $14(a6),d0
  13434.     or.w    d0,mt_dmacon
  13435.     bra    mt_checkcom2
  13436.  
  13437. mt_setdma:
  13438.      move.w #250,d0
  13439. mt_wait:
  13440.      add.w #1,testchip
  13441.      dbra d0,mt_wait
  13442.     move.w    mt_dmacon,d0
  13443.     or.w    #$8000,d0
  13444.     and.w #%1111111111110011,d0
  13445.     move.w    d0,$dff096
  13446.     move.w #250,d0
  13447. mt_wait2:
  13448.     add.w #1,testchip
  13449.     dbra    d0,mt_wait2
  13450.     lea    $dff000,a5
  13451.     tst.b UseAllChannels
  13452.     beq.s noall
  13453.     lea    mt_voice4(pc),a6
  13454.     move.l    $a(a6),$d0(a5)
  13455.     move.w    $e(a6),$d4(a5)
  13456.     lea    mt_voice3(pc),a6
  13457.     move.l    $a(a6),$c0(a5)
  13458.     move.w    $e(a6),$c4(a5)
  13459. noall:
  13460.     lea    mt_voice2(pc),a6
  13461.     move.l    $a(a6),$b0(a5)
  13462.     move.w    $e(a6),$b4(a5)
  13463.     lea    mt_voice1(pc),a6
  13464.     move.l    $a(a6),$a0(a5)
  13465.     move.w    $e(a6),$a4(a5)
  13466.  
  13467.     add.w    #$10,mt_pattpos
  13468.     cmp.w    #$400,mt_pattpos
  13469.     bne.s    mt_endr
  13470. mt_nex:    clr.w    mt_pattpos
  13471.     clr.b    mt_break
  13472.     addq.b    #1,mt_songpos
  13473.     and.b    #$7f,mt_songpos
  13474.     move.b    mt_songpos,d1
  13475. ;    cmp.b    mt_data+$3b6,d1
  13476. ;    bne.s    mt_endr
  13477. ;    move.b    mt_data+$3b7,mt_songpos
  13478. mt_endr:tst.b    mt_break
  13479.     bne.s    mt_nex
  13480.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  13481.     rts
  13482.  
  13483. mt_setmyport:
  13484.     move.w    (a6),d2
  13485.     and.w    #$fff,d2
  13486.     move.w    d2,$18(a6)
  13487.     move.w    $10(a6),d0
  13488.     clr.b    $16(a6)
  13489.     cmp.w    d0,d2
  13490.     beq.s    mt_clrport
  13491.     bge.s    mt_rt
  13492.     move.b    #$1,$16(a6)
  13493.     rts
  13494. mt_clrport:
  13495.     clr.w    $18(a6)
  13496. mt_rt:    rts
  13497.  
  13498. CODESTORE: dc.l 0
  13499.  
  13500. mt_myport:
  13501.     move.b    $3(a6),d0
  13502.     beq.s    mt_myslide
  13503.     move.b    d0,$17(a6)
  13504.     clr.b    $3(a6)
  13505. mt_myslide:
  13506.     tst.w    $18(a6)
  13507.     beq.s    mt_rt
  13508.     moveq    #0,d0
  13509.     move.b    $17(a6),d0
  13510.     tst.b    $16(a6)
  13511.     bne.s    mt_mysub
  13512.     add.w    d0,$10(a6)
  13513.     move.w    $18(a6),d0
  13514.     cmp.w    $10(a6),d0
  13515.     bgt.s    mt_myok
  13516.     move.w    $18(a6),$10(a6)
  13517.     clr.w    $18(a6)
  13518. mt_myok:move.w    $10(a6),$6(a5)
  13519.     rts
  13520. mt_mysub:
  13521.     sub.w    d0,$10(a6)
  13522.     move.w    $18(a6),d0
  13523.     cmp.w    $10(a6),d0
  13524.     blt.s    mt_myok
  13525.     move.w    $18(a6),$10(a6)
  13526.     clr.w    $18(a6)
  13527.     move.w    $10(a6),$6(a5)
  13528.     rts
  13529.  
  13530. mt_vib:    move.b    $3(a6),d0
  13531.     beq.s    mt_vi
  13532.     move.b    d0,$1a(a6)
  13533.  
  13534. mt_vi:    move.b    $1b(a6),d0
  13535.     lea    mt_sin(pc),a4
  13536.     lsr.w    #$2,d0
  13537.     and.w    #$1f,d0
  13538.     moveq    #0,d2
  13539.     move.b    (a4,d0.w),d2
  13540.     move.b    $1a(a6),d0
  13541.     and.w    #$f,d0
  13542.     mulu    d0,d2
  13543.     lsr.w    #$6,d2
  13544.     move.w    $10(a6),d0
  13545.     tst.b    $1b(a6)
  13546.     bmi.s    mt_vibmin
  13547.     add.w    d2,d0
  13548.     bra.s    mt_vib2
  13549. mt_vibmin:
  13550.     sub.w    d2,d0
  13551. mt_vib2:move.w    d0,$6(a5)
  13552.     move.b    $1a(a6),d0
  13553.     lsr.w    #$2,d0
  13554.     and.w    #$3c,d0
  13555.     add.b    d0,$1b(a6)
  13556.     rts
  13557.  
  13558. mt_nop:    move.w    $10(a6),$6(a5)
  13559.     rts
  13560.  
  13561.  
  13562. mt_checkcom:
  13563.     move.w    $2(a6),d0
  13564.     and.w    #$fff,d0
  13565.     beq.s    mt_nop
  13566.     move.b    $2(a6),d0
  13567.     and.b    #$f,d0
  13568.     tst.b    d0
  13569.     beq    mt_arpeggio
  13570.     cmp.b    #$1,d0
  13571.     beq.s    mt_portup
  13572.     cmp.b    #$2,d0
  13573.     beq    mt_portdown
  13574.     cmp.b    #$3,d0
  13575.     beq    mt_myport
  13576.     cmp.b    #$4,d0
  13577.     beq    mt_vib
  13578.     move.w    $10(a6),$6(a5)
  13579.     cmp.b    #$a,d0
  13580.     beq.s    mt_volslide
  13581.     rts
  13582.  
  13583. mt_volslide:
  13584.     moveq    #0,d0
  13585.     move.b    $3(a6),d0
  13586.     lsr.b    #4,d0
  13587.     tst.b    d0
  13588.     beq.s    mt_voldown
  13589.     add.w    d0,$12(a6)
  13590.     cmp.w    #$40,$12(a6)
  13591.     bmi.s    mt_vol2
  13592.     move.w    #$40,$12(a6)
  13593. mt_vol2:move.w    $12(a6),d0
  13594.     asr.w #2,d0
  13595.     move.w d0,$8(a5)
  13596.     rts
  13597.  
  13598. mt_voldown:
  13599.     moveq    #0,d0
  13600.     move.b    $3(a6),d0
  13601.     and.b    #$f,d0
  13602.     sub.w    d0,$12(a6)
  13603.     bpl.s    mt_vol3
  13604.     clr.w    $12(a6)
  13605. mt_vol3:move.w    $12(a6),d0
  13606.     asr.w #2,d0
  13607.     move.w d0,$8(a5)
  13608.     rts
  13609.  
  13610. mt_portup:
  13611.     moveq    #0,d0
  13612.     move.b    $3(a6),d0
  13613.     sub.w    d0,$10(a6)
  13614.     move.w    $10(a6),d0
  13615.     and.w    #$fff,d0
  13616.     cmp.w    #$71,d0
  13617.     bpl.s    mt_por2
  13618.     and.w    #$f000,$10(a6)
  13619.     or.w    #$71,$10(a6)
  13620. mt_por2:move.w    $10(a6),d0
  13621.     and.w    #$fff,d0
  13622.     move.w    d0,$6(a5)
  13623.     rts
  13624.  
  13625. mt_portdown:
  13626.     clr.w    d0
  13627.     move.b    $3(a6),d0
  13628.     add.w    d0,$10(a6)
  13629.     move.w    $10(a6),d0
  13630.     and.w    #$fff,d0
  13631.     cmp.w    #$358,d0
  13632.     bmi.s    mt_por3
  13633.     and.w    #$f000,$10(a6)
  13634.     or.w    #$358,$10(a6)
  13635. mt_por3:move.w    $10(a6),d0
  13636.     and.w    #$fff,d0
  13637.     move.w    d0,$6(a5)
  13638.     rts
  13639.  
  13640. mt_checkcom2:
  13641.     move.b    $2(a6),d0
  13642.     and.b    #$f,d0
  13643.     cmp.b    #$e,d0
  13644.     beq.s    mt_setfilt
  13645.     cmp.b    #$d,d0
  13646.     beq.s    mt_pattbreak
  13647.     cmp.b    #$b,d0
  13648.     beq.s    mt_posjmp
  13649.     cmp.b    #$c,d0
  13650.     beq.s    mt_setvol
  13651.     cmp.b    #$f,d0
  13652.     beq.s    mt_setspeed
  13653.     rts
  13654.  
  13655. mt_setfilt:
  13656.     move.b    $3(a6),d0
  13657.     and.b    #$1,d0
  13658.     asl.b    #$1,d0
  13659.     and.b    #$fd,$bfe001
  13660.     or.b    d0,$bfe001
  13661.     rts
  13662. mt_pattbreak:
  13663.     not.b    mt_break
  13664.     rts
  13665. mt_posjmp:
  13666.     st reachedend
  13667.     move.b    $3(a6),d0
  13668.     subq.b    #$1,d0
  13669.     move.b    d0,mt_songpos
  13670.     not.b    mt_break
  13671.     rts
  13672. mt_setvol:
  13673.     cmp.b    #$40,$3(a6)
  13674.     ble.s    mt_vol4
  13675.     move.b    #$40,$3(a6)
  13676. mt_vol4:move.b    $3(a6),d0
  13677.     asr.w #2,d0
  13678.     move.w d0,$8(a5)
  13679.     rts
  13680. mt_setspeed:
  13681.     cmp.b    #$1f,$3(a6)
  13682.     ble.s    mt_sets
  13683.     move.b    #$1f,$3(a6)
  13684. mt_sets:move.b    $3(a6),d0
  13685.     beq.s    mt_rts2
  13686.     move.b    d0,mt_speed
  13687.     clr.b    mt_counter
  13688. mt_rts2:rts
  13689.  
  13690. mt_sin:
  13691.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  13692.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  13693.  
  13694. mt_periods:
  13695.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  13696.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  13697.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  13698.  DC.w $007f,$0078,$0071,$0000,$0000
  13699.  
  13700. reachedend: dc.b 0
  13701. mt_speed:    DC.b    6
  13702. mt_songpos:    DC.b    0
  13703. mt_pattpos:    DC.w    0
  13704. mt_counter:    DC.b    0
  13705.  
  13706. mt_break:    DC.b    0
  13707. mt_dmacon:    DC.w    0
  13708. mt_samplestarts:DS.L    $1f
  13709. mt_voice1:    DS.w    10
  13710.         DC.w    1
  13711.         DS.w    3
  13712. mt_voice2:    DS.w    10
  13713.         DC.w    2
  13714.         DS.w    3
  13715. mt_voice3:    DS.w    10
  13716.         DC.w    4
  13717.         DS.w    3
  13718. mt_voice4:    DS.w    10
  13719.         DC.w    8
  13720.         DS.w    3
  13721.  
  13722. CHEATPTR: dc.l 0
  13723. CHEATNUM: dc.l 0
  13724.  
  13725. testchip: dc.w 0
  13726.  
  13727. ;/* End of File */
  13728. mt_data: dc.l 0
  13729. tstchip: dc.l 0
  13730.  include "SERIAL_NIGHTMARE"
  13731.  
  13732. ingame:
  13733. ; incbin "ab3:includes/ingame"
  13734. gameover: 
  13735. ;incbin "ab3:includes/gameover"
  13736. welldone: incbin "ab3:includes/newwelldone"
  13737.  
  13738.  
  13739.